CALCULAD.PAS

CALCULAD.PAS

program calculadora;
uses
crt;
var
a,b:real;
c:char;
begin
writeln('dame el balor de a');
readln(a);
writeln('dame el operador');
readln(c);
writeln('dame el valor de b');
readln(b);
case c of
'+':writeln(a+b:2:2);
'-':writeln(a-b:2:2);
'*':writeln(a*b:2:2);
'/':writeln(a/b:2:2)
else
 writeln('error');
end;
readkey;
end.