var x,y:integer;

begin

write('Введите "x" и "y": ');

read(x,y);

y:=y-x;

x:=x-2;

while x<=y do

begin

y:=y-x;

x:=x-2;

end;

write('Программа закончилась. x=',x,',y=',y);

end.