Помогите сделать программу на pascal abc из блок-схемы. Пожалуйста
Var i, f:integer; begin f := 1; for i:= 1 to 6 do begin f := f*i; end; write(f); end.