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.