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.