Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста: напишите программу, которая производит обмен значений переменных x и y, если x больше у.
Пример входных данных Пример выходных данных
x>>5 x=5
y>>6 y=6

Ответ оставил Гость

Program zadanie;
Var x,y:real;
Begin
 Writeln(Введите значения x и y);
 Readln(x,y);
 If x>y Then
 begin
 x:=x+y;
 y:=x-y;
 x:=x-y;
 Writeln(x=,x);
 Writeln(y=,y);
 end;
End.