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.
Сам не компилировал, надеюсь ошибок нет, если есть то сори, просто разберись в цикле и сам всё поймешь.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.