Question

30 баллов
Информатика
Задание на составление программы

Answer 1

var

   a, b: Integer;

begin

   Read(a, b);

   

   if a > b then

       y := a + b

   else if a < b then

       y := a * b

   else

       y := a - b;

   

   WriteLn(y)

end.