3 вида циклов с условием.

Блок-схемы основных циклов в Паскале

1.

While (Цикл - ПОКА)                                                    

Пример:

var

     sum, n: integer;

begin

    sum := 0;

     while sum < 100 do

          begin

               readln(n);

               sum := sum + n;

           end;

writeln('Сумма: ', sum);

end.

2.

Repeat (Цикл - ДО)

Пример:

var

     sum, n: integer;

begin

     sum := 0;

     repeat

          readln(n);

          sum := sum + n;

          until sum > 100;

writeln('Сумма: ', sum);

end.