Составить программу вычесления суммысоставить программу вычесления суммы ряда s=4 в 1 степени+4 в 3 степени + 4 в 5 +4 в 15 степени

Var
k,j,i,s:integer;
begin
k:=1;
for i:=1 to 7 do
       for j:=1 to 7 do
       s:=s+4*k;
       end;
    k:=k+16;
end;
end.
Сам не компилировал, надеюсь ошибок нет, если есть то сори, просто разберись в цикле и сам всё поймешь. 

Паскаль а не пасхаль если што