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

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