Цикл в фрагменте программы
k := 1; m := 1;
while k + m = m + k do
begin k := k + 1; m := m + 2 end;
будет исполнен

• 0 раз
• 2 раза
• 3 раза
• бесконечное число раз