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