Вычисление факториала - Pascal

Данная программа написана для вычисления факториала числа n. По определению факториал n равен 1*2*…*(n–1)*n.

var n, f, k: integer;
begin
readln(n); f:=1; k:= 0;
while k<>n do
begin f:=k*f; k:=k+1; end;
writeln(f)
end.

Какое число f будет вычислено, если n=5?

Листинг программы

while k<>n do
begin
 k:=k+1;
 f:=k*f;
end;

Объяснение кода листинга программы

Переменная k инициализируется значением 1.
Переменная n инициализируется значением 10.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной k не станет больше или равно значению переменной n.
Внутри цикла переменная k увеличивается на 1.
Результат увеличения переменной k сохраняется в переменной f.
Цикл while повторяется, пока значение переменной k не станет больше или равно значению переменной n.