Страница 155 §3.4 номер 11, ГДЗ по информатике за 8 класс к учебнику Босовой

program z11;

var

  x,y,c: integer;

begin

  write('Введи числа x и y>>');

  readln(x, y);

  if x>y then

  begin

    c:=x;

    x:=y;

    y:=c

  end;

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

end.