program Calculator;
var Op :char;
rez:real;
arg:real;
BEGIN
rez:=0.0;
Op:='+';
repeat
readln(arg);
case Op of
'+':rez:=rez+arg;
'-':rez:=rez-arg;
'*':rez:=rez*arg;
'/':rez:=rez/arg;
end;
readln(Op);
until Op='=';
writeln(rez);
END.
Ей, Паскала е велика работа