нарисовать блок-схему

[Jalgas-xan]

помогите пожалуйста с блок-схемой?! вот программа:


Код Pascal

var
  n, i: integer;
  p: longint;
  f,g: text;
begin
  assign(f,'C:\dan.txt');
  reset(f);
  readln(f,n);
  close(f);
  p := 1;
  if (n = 0) or (n = 1) then writeln('1')
  else
    for i := 2 to n do
      p := p * i;
  writeln(p);
  assign(g,'C:\result.txt');
  rewrite(g);
  writeln(g,p);
  close(g);
  readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Mad_Cat]