Вычислите факториал используя оператор Repeat.!!!!!!!!!!!!!!!!!

Question

Вычислите факториал используя оператор Repeat.!!!!!!!!!!!!!!!!!

Answer 1

Var f,n,i:integer;
begin
readln(n);
i:=1;
f:=1;
repeat
f:=f*i;
i:=i+1;
until i>n;
writeln(f);
end.