var a,b : real;
var c : string;

begin

write('insira um valor para A: ');
readln(a);
write('insira um valor para B: ');
readln(b);

write('insira o operador aritimetico: ');
readln(c);

while ( (c<>'+') or (c<>'-') or (c<>'*') or (c<>'/') ) do
begin
writeln('Operacao invalida');
writeln('Insira um operador aritimetico valido: ');
readln(c);
end;

Case c of

'+':
begin
writeln(A:0:2,C,B:0:2,' = A + B = ',(A+B):0:2);
end;

'-':
begin
writeln(A:0:2,C,B:0:2,' = A - B = ',(A-B):0:2);
end;

'*':
begin
writeln(A:0:2,C,B:0:2,' = A * B = ',(A*B):0:2);
end;

'/':
begin
If (b=0) then
begin
writeln(A,C,B,' = A / B = ');
writeln('Expressao invalida: divisao por zero.');
end;

writeln(A:0:2,C,B:0:2,' = A + B = ',(A/B):0:2);
end;
end;



 readln();

end.