помогите пож-та с блок-схемой

[4otenado]

program zadacha1;
const n=16;
var i,max,k:integer;
mid:real;
a:array [1..n] of integer;

begin
max:=0;
mid:=0;
k:=0;
for i:=1 to n do
begin
writeln (' Введите число №',i);
readln(a[i]);
end;
for i:=1 to n do
begin
if (a[i]>99) and (a[i}<1000) then
if a[i]>max then max:=a[i];
if a[i] mod 2=0 then
begin
inc(k);
mid:=mid+a[i];
end;
end;
mid:=mid/k;
writeln (' Наибольшее из трехзначных чисел =',max);
writeln (' Среднее арифметическое четных чисел =',mid);

[Ivan3000]

[IMG]file:///C:/Documents%20and%20Settings/Ivan/%D0%A0%D0%B0%D0%B1%D0%BE%D1%87%D0%B 8%D0%B9%20%D1%81%D1%82%D0%BE%D0%BB/New_FlowChart_1_Part_0.bmp[/IMG]

[4otenado]

Сообщение от Ivan3000

[IMG]file:///C:/Documents%20and%20Settings/Ivan/%D0%A0%D0%B0%D0%B1%D0%BE%D1%87%D0%B 8%D0%B9%20%D1%81%D1%82%D0%BE%D0%BB/New_FlowChart_1_Part_0.bmp[/IMG]

а как её увидеть?

[Ivan3000]

Извини,что перечеркнуто(прога не зареглена)!

[4otenado]

Сообщение от Ivan3000

Извини,что перечеркнуто(прога не зареглена)!

да ладно, ничего страшного. Спасибо.