Ответ:
Цикл while выполняется пока i<=10, когда он станет больше 10, т.е например 11, то цикл завершится. Т.е цикл пройдет 11 раз, перед тем как перестанет выполнятся условие.
И в конце концов S = 2
На экран выведет :a=1 b=11 поэтому ответ:1,11
Разрабатывают разработчики.
исполняет исполнитель.
Всегда Ваш, Капитан Очевидность.
Uses Drawman;
procedure Berry;
begin
field(14, 13);
topoint(2, 1);
pendown;
topoint(1, 2);
topoint(1, 3);
topoint(2, 4);
topoint(3, 4);
topoint(4, 3);
topoint(4, 2);
topoint(3, 1);
topoint(2, 1);
penup;
topoint(6, 1);
pendown;
topoint(5, 2);
topoint(5, 3);
topoint(6, 4);
topoint(7, 4);
topoint(8, 3);
topoint(8, 2);
topoint(7, 1);
topoint(6, 1);
penup;
end;
procedure Leaf;
begin
topoint(3,4);
pendown;
topoint(6,10);
topoint(4,12);
topoint(2,12);
topoint(4,10);
topoint(8,10);
topoint(10,8);
topoint(8,8);
topoint(6,10);
topoint(6,4);
end;
begin
Berry;
Leaf;
end.