Question

(Pascal)
ввести 2 числа
если а>b, то
k b прибавить 4
иначе разделить на 2
вывести a и b.​

Answer 1

program restless;

var

a,b : real;

begin

readln(a, b);

if a > b then

   b := b + 4

else

   b := b / 2;

writeln(a,b);

end.