Program zadacha3; var x, y : real; rez : char; begin write(x=); readln(x); write(y=); readln(y); write(Введите число); readln(rez); case rez of 1 : writeln(x+y=, x+y); 2 : writeln(x-y=, x-y); 3 : writeln(x*y=, x*y); 4 : writeln(x/y=, x/y); else writeln(Неправельное Число) end; end. Программа в паскале типо вычесления 4 способами как сделать чтобы сночала спрашивался способ а потом уже выбирать числа

Var
 x, y : real;
 rez : char;
begin
write(Выберите способ:);
 readln(rez);
case rez of
1 : begin
write(x=);
readln(x);
write(y=);
readln(y);
writeln(x+y=, x+y);
end;
2 : begin 
write(x=);
readln(x);
write(y=);
readln(y);
writeln(x-y=, x-y);
end;
3 : begin
 write(x=);
 readln(x);
write(y=);
 readln(y);
writeln(x*y=, x*y);
end;
4 : begin
 write(x=);
 readln(x);
write(y=);
 readln(y);
writeln(x/y=, x/y);
end;
else
 writeln(Неправельное Число)
end;
end.