задачи в паскале

[lora1ru]

привести три однотипные задачи на операторы цикла такие, что одну из них удобнее решать с помощью цикла с предусловием, вторую-с помощью цикла с постусловием, третью-с помощью цикла с параметром.

[DM_bite]

Вот что нашел в задачнике:

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

Найти сумму всех чисел от 15 до 0;

program xd;
var i,sum: integer;
begin
 i:=15; sum:= 0;
 while i>0 do
 begin
 i:= i-1;
 sum:= sum+i;
 end;
 WriteLn(sum);
 ReadLn;
 end.

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

Найти сумму всех чисел от 0 до 40, которые кратны 4.

program xd;
var i,sum: integer;
begin
i:=0; sum:= 0;
repeat i:= i+1;
if i mod 4 = 0 then sum:= sum+i;
until i>40;
WriteLn(sum);
ReadLn;
end.

цикл с параметром - это то есть цикл со счетчиком?

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

Найти все числа от 0 до 20, которые кратны 3.

program xd;
var i: integer;
begin
 for i:= 0 to 20 do
  begin
   if i mod 3 = 0 then WriteLn(i);
   end;
   ReadLn;
   end.

Вы бы вначале с теорией разобрались, а потом на форум бы писали...