Цикл с параметром

x := 100;
for i := 1 to n do begin
  x := x div 10;
end;

Цикл с предусловием

count:= 0;
while n > 0 do begin
  n := n div 10;
  count := count + 1
end;

Цикл с постусловием

repeat
  write('Введите n > 0: ');
  read(n)
until n > 0;

Чтение данных (цифр), записанных через пробел, в цикле Repeat .. until (окончание ввода - цифра ноль):

program a2;
var
  n, sum: integer;
begin
  sum := 0;
  repeat
    read(n);
    sum := sum + n;
  until n = 0; // Выполнять цикл пока не выполнится это условие
  writeln(sum);
end.