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.