ПОМОГИТЕ ДАЮ 25 БАЛЛОВ

Question

ПОМОГИТЕ ДАЮ 25 БАЛЛОВ

---

Answer 1

Var f,i:integer;
begin
f:=1;
for i:=1 to 6 do f:=f*i;
writeln(f)
end.

Answer 2

5 цель 1.6 6*5
РВРВРВРВРВРРВРВРРВРВР