Написать программу, над введенными числами осуществляется соответствующее действие и результат выводится на экран. Признаком конца работы программы служит ввод любого символа, отличного от +,-,*, / — Pascal(Паскаль)

Program Calc;
var
operation:Char;
x,y,z:Real;
stop:Boolean;
begin
stop:= false;
repeat
WriteLn;
Write('x,y= ' );
ReadLn(x,y);
Write('операция: ') ;
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
end.