[Pascal] Operacia_2

program Axwell;
var a,b :integer;
    pokyn:char;
begin
writeln ('Zadaj cisla a b');
readln(a);
readln(b);
writeln('Co chces urobit?');
writeln('Pre sucet stlac s');
writeln('Pre sucin stlac n');
writeln('Pre rozdiel stlac r');
writeln('Pre podiel stlac p');
readln(pokyn);
case pokyn of
  's': writeln(a+b);
  'n': writeln(a*b);
  'r': writeln(a-b);
  'p': begin
         if b=0 then
           writeln('nemozes delit nulou')
         else writeln(a/b);
       end;
end;
readln;
end.