program co_robi_4;
uses crt;
var a, b, c: integer;
z: string;
begin
writeln('Zadaj dve cele kladne cisla');
readln(a, b);
writeln('Napis co s nimi chces:');
writeln('sucet, rozdiel, sucin, neuplny podiel, zvysok po deleni');
readln(z);
case z of
'sucet': c:=a+b;
'rozdiel': c:=a-b;
'sucin': c:=a*b;
'neuplny podiel': c:=a div b;
'zvysok po deleni': c:=a mod b;
end;
writeln('Vysledok je ',c:10);
readln;
end.