Инфа! программирование - циклы! найти сумму первых 20 чисел, кратных 6.

Var i,s:integer;
begin
s:=0;
for i:=1 to 20 do s:=s+6*i;
writeln('s = ',s);
end.

Результат:
s = 1260