нужна блок-схема к программе

[solisoul]

program z4v17;
uses crt;
var
  a     : array[1..20] of shortint;
  i,n   : integer;
  c,r   : shortint;
begin
  clrscr;
  write('n=');
  read(n);
  writeln;
  write('c=');
  read(c);
  writeln;
  r:=1;
  for i:=1 to n do
    begin
      write('a',i,'=');
      read(a[i]);
      writeln;
      if a[i]>=c then
        r:=r*a[i]*a[i];
    end;
  writeln('r=',r:7);
  readln;
end.

[DIgorevich]

Ой, а как же "Помогите, пожалуйста, сделать...." или " Будьте добры, сделайте...." ?
Для оформления кода, используются тэги [СОDE][/СОDE]

[Stilet]

нате нате нате

[rrrFer]

http://programmersforum.ru/showthread.php?t=111215