помогите с самыми легкими задачами.

[novichek26]

1. Укажите значения переменных x, y при которых произойдет зацикливание:

VAR s,x,y: Integer;
BEGIN
  WRITE('Введите x и y ');
  READLN(x,y);
  s:=0;
  REPEAT
    s:=s+1;
    x:=x+1;
    y:=y+1;
  UNTIL x>y;
  WRITE(s)
END.

2. Укажите значения переменных x, y при которых произойдет зацикливание:

VAR s,x,y: Integer;
BEGIN
  WRITE('Введите x и y ');
  READLN(x,y);
  s:=0;
  REPEAT
    s:=s+1;
    x:=x+1;
    y:=y+1;
  UNTIL x>y;
  WRITE(s)
END.

[Stilet]

Укажите значения переменных x, y при которых произойдет зацикливание:

x=0 y=0.
Годится?