program kalkulator;

uses crt;

var    a,b,c:real; x:integer;

Begin

clrscr;

Writeln('введите 2 числа');    

Readln(a,b);    

Writeln('выберете действие');    

Writeln('1-"+" 2-"-" 3-"*" 4-"/"');         

Readln(x);         

case x of    

1:begin c:=a+b; Writeln(c:2:2); end;    

2:begin c:=a-b; Writeln(c:2:2); end;    

3:begin c:=a*b; Writeln(c:2:2); end;    

  elsebegin  c:=a/b; Writeln(c:2:2);

end;    

end;    

Readln;    

end.