2 задание найти ошибке срочно!!!)
Правильный вариант кода: k := 1; f := 1; while k <= n do <br>begin f := f * k; k:=k+1; end;