Напишите код по этой блок схеме

Question

Напишите код по этой блок схеме

---

Answer 1

Код программы:
var x,y,c:Integer;
begin
Read(x,y);
if x>y then
begin
c:=x;
x:=y;
y:=c;
end;
WriteLn('x='+x+',y='+y);
end.

Её объяснение:
Программа считывает 2 числа.
Если первое число больше второго,то она меняет их местами.