Вычислить значение n! для введенного с клавиатуры с циклом с параметром. мне нужна блок-схема алгоритма - Pascal ABC

помогите пожалуйста

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

var i,n,a:integer;
begin
a:=1;
readln (n);
For i:=1 to n do 
a:=a*i;
Writeln (a);
end.

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

В данном коде происходит следующее:

Объявляются три переменные: i, n и a. Переменная i является целочисленной, переменная n также является целочисленной, а переменная a также является целочисленной.
Значение переменной n считывается с клавиатуры с помощью функции readln.
Переменная a инициализируется единицей.
Затем начинается цикл for, который выполняется n раз.
Внутри цикла переменная i принимает значения от 1 до n.
Переменная a умножается на значение переменной i.
После выполнения цикла, значение переменной a выводится на экран с помощью функции Writeln.
Программа завершается.