Решите на листочке, пожалуйста, от этого зависит поступление

Вторая задача на цикл с параметромvar s,k:integer;begins:=0;for k:=1 to 5 dos:=s+2*k;writeln ('сумма =', s);end. Первая задача нужна ?