Помогите пожалуйста:)1.Определите значение переменной
f после выполнения фрагмента алгоритма:


f:=1


нц для i от 1 до 5


f:=f*i

кц
2.Определите значение переменной
S после выполнения фрагмента алгоритма:
s:=0


нц для i от 1 до 5


s:=s+i*i

кц

//PascalABC.NET версия 3.2, сборка 1389
begin
var f := 1;
for var i := 1 to 5 do
begin
f := f * i;
writeln(i, ' -> ', f);
end;
writeln;

var s := 0;
for var i := 1 to 5 do
begin
s := s + i * i;
writeln(i, ' -> ', s);
end;
end.

И мы получаем такие данные
1)
1 -> 1
2 -> 2
3 -> 6
4 -> 24
5 -> 120
Ответ 120

2)
1 -> 1
2 -> 5
3 -> 14
4 -> 30
5 -> 55
Ответ 55