Программа вводит два числа в первой строке и один из знаков +,-,*,/ во второй строке и выводит на экран результат соответствующего

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