Решите пожалуйста. Очень нужно. У меня не получается

Вывод блок схемы:

x=3

y=12

Программа на паскале:

program block;

var x,y:integer;

begin

x:=5;

y:=10;

while y<=10 do begin

 if x<=y

   then begin

     x:=x+1;

     y:=y-1;

   end

   else begin

     x:=x-5;

     y:=y+5;

   end;

 end;

writeln('Вывод блок-схемы: x=',x,' y=',y)

end.