program kalkulacka;
uses Crt;
var a,b:real; { operandy }    op:char; { operacia }    vys:real; { vysledok }    ppp:byte;
begin  ClrScr;  ppp:=0;
 writeln('Zadaj dve cisla, z ktorymi budes robit prislusnu operaciu.');
 readln(a);
 readln(b);
 writeln('Zadaj operaciu.'); writeln('+ pre sucet a+b,');  writeln('- pre rozdiel a-b,');  
writeln('/ pre podiel a/b,');
 writeln('* pre sucin a*b.');
 readln(op);
 case op of
      '+':vys:=a+b;
      '-':vys:=a-b;
      '*':vys:=a*b;
      '/':vys:=a/b;
      else begin
            ppp:=1;
            writeln('Zadal si nespravnu operaciu.');
      end;
 end;
  if (ppp=0) then writeln('Vysledok: ',a:3:2,op,b:3:2,'=',vys:3:2,'.');
  readln;
end.