Сколько раз будет выполнен цикл? repeat read (N); Sum := Sum+N; until N=1
Цикл буде виконаний
Sum := Sum+N;