var

//объявляем переменные для хранения сумм и переменной счетчика i

i, _sumWhile, _sumFor, _sumRepeat : integer;

begin

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

for i := 1 to 20 do

   _sumFor := _sumFor + i;

writeln(_sumFor);

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

i := 1;

while i <= 20 do

   begin

   _sumWhile := _sumWhile + i;

   i := i + 1;

   end;

//цикл с постусловием

i := 1;

repeat

_sumRepeat := _sumRepeat + i;

i := i + 1;

until i > 20;

//выводим суммы чисел

writeln(_sumFor,' ', _sumWhile,' ', _sumRepeat);

end.