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;beginwrite('Выберите способ:'); readln(rez);case rez of'1' : beginwrite('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.