Составить и зафиксировать в форме блок-схемы алгоритм вычисления факториала числа

program faktorial;
uses crt;
var n,i,k : longint;
begin 
clrscr; 
writeln('Vvedite chislo');readln(n); 
k:=1; 
for i:=1 to n do   
k:=k*i; 
write('factorial chisla ',n,'   raven  ', k); 
readkey;
end