Kalkulacka

program kalkulacka;
{$APPTYPE CONSOLE}
uses SysUtils;
var o:char;
    c1,c2 : integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
write('Zadajte prve cislo: ');
readln(c1);
write('Zadajte druhe cislo: ');
readln(c2);
write('Vyberte si operaciu: ');
readln(o);
  case o of
    '+':begin
        writeln('Zvolili ste si sucet!');
        write(c1,'+',c2,'=',c1+c2);
        end;
    '-':begin
        writeln('Zvolili ste si podiel!');
        write(c1,'-',c2,'=',c1-c2);
        end;
    '*':begin
        writeln('Zvolili ste si sucin!');
        write(c1,'*',c2,'=',c1*c2);
        end;
    '/':begin
        writeln('Zvolili ste si rozdiel!');
        write(c1,'/',c2,'=',c1/c2:1:3);
        end;
  end;
readln
end.