Case Of...Pascal

[bgli]

Някой може ли да ми направи някаква проста програма на паскал с case of... защото case-a не го разбирам много много.Мерси предварително

[Chacho]

program pojelaniq;

var

i: integer;

begin

writeln("Dobre doshli v programata za pojelania");
writeln;writeln;
writeln('Izberete na kogo iskate da izpratite pojelanie');
writeln;
writeln('1.Na sebe si');
writeln('2.Na Boiko Borisov');
writeln('3.Na vsichki pokemoni');
writeln;
write('Izbor:')
readln(i);
writeln;

case i of
1 : writeln('Egoist.');
2 : writeln('Naredi se na opashkata!');
3 : writeln('Chestit 3-ti rojden den!');
otherwise writeln('Nauchi se da broish do 3!');
end;

end.