Укажите 3 способа задания цикла. Приведите примеры

Существуют три вида циклов на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.
Примеры.
1) найти сумму первых 10 натуральных чисел:
     s:=0;
     for i:=1 to 10 do s:=s+i;
     write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
     s:=0; i:=8;
      while i<45 do
        begin
           s:=s+i; 
           i:=i+2
        end;
     write(s);
3) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
     s:=0; i:=8;
      repeat
           s:=s+i; 
           i:=i+2
        until  i>45;
     write(s);