Программка вводит два числа в первой строке и один из символов

Program zadacha_3;
var
operation:char;знак операции
x, y,z: real;операнды и результат
stop:Boolean;
begin
stop:=false;
nbsp;repeat
writeln;
writeln(x,y=);
readln (x,y);
writeln(операция);
readln (operation);
nbsp;case operation of
nbsp;+:z:=x+y;
nbsp;-:z:=x-y;
nbsp;*:z:=x*y;
nbsp;/:z:=x/y;
nbsp;else
nbsp;stop:=true
nbsp;end;
nbsp;if not stop then
nbsp;writeln (зультат=,z)
nbsp;until stop
nbsp;readln;
nbsp;end.