pascal - циклы

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

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;