Страницы 177-181 параграф 4 4 вопрос / задание 5, ГДЗ по информатике за 8 класс к учебнику Босовой просвещение

program Z_5_4;

var

 x, y, c: integer;

begin

  write('Введи х и у через пробел > ');

  readln(x, y);

  if x > y then 

  begin

    c := y;

    y := x;

    x := c

  end;

  writeln('x=', x, ' y=', y)

end.