Question

По данной блок-схеме напишите программу на Паскале.

Answer 1

Ответ:

var x,y: integer;

begin

readln(x,y);

if (x>y) then

 begin

 x:= x - y;

 y:= x + y;

 end

else

 begin

 y:= y - x;

 x:= x - y;

 end;

writeln(x);

writeln(y);

end.