program calculadora;
uses crt;

var
 x, y, resultado : real;
 operador : char;

begin
 clrscr;
 writeln ('Entre com A:');
 readln (x);
 writeln ('Entre com B:');
 readln (y);
 writeln ('Escolha a operacao (+,-,*,/):');
 readln (operador);
  {soma}
  if (operador='+') then
  resultado := x+y
   {subtaracao}
   else if (operador='-') then
   resultado := x-y
   {mutiplicacao}
   else if (operador='*') then
   resultado := x*y
   {divisao}
   else if (operador='/') then
   resultado := x/y;
   writeln (resultado:8:3);
end.