Помогите пожалуйста!По информатике!Напишите программку,которая производит размен значений

Помогите пожалуйста!
По информатике!
Напишите программку,которая производит обмен значений переменных х,у,если х больше у.
Пример входных данных Пример выходных данных
xgt;gt;5 x=5
ygt;gt;6 y=6
xgt;gt;6 x=5
ygt;gt;5 y=6

Задать свой вопрос
1 ответ
Var x,y,z:integer;
begin
writeln('Введите x и y');
read(x,y);i
f xgt;y then begin
z:=x;
x:=y;
y:=z;
end;
writeln(x,y:3);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт