Помогите Пожалуйсто с простой Задачкой! (P.S Паскаль)

[alex_fcsm]

uses Crt;
var i,n,sum:integer;
    a:array[1..1000] of integer;
begin
ClrScr;
readln(n);
sum:=0;
for i:=1 to n do
 begin
  read(a[i]);
  sum:=sum+a[i];
 end;
 writeln((sum/n):6:3);
end.

[kmax2]

спс те огромное хорощий тут у вас форум)

[kmax2]

Привет всем ! сного я ))

подскажите как нарисовать блог схемы к 2 задачкам!

1 вот эта

program c4;
uses crt;
var
n,k,kmax,sum:integer;
begin
writeln(' Vvedite "K" i "N" cherez probel');
readln(kmax,n);
if (kmax <= 0 ) or (n <= 0) then begin
writeln('Error! K <= 0 ili N <= 0');
exit;
end;
k := 1;
while (k <= kmax) do begin
if (n mod 4 = 0) then begin
sum := sum + n;
inc(k);
end;
inc(n);
end;
writeln('summa pavna:');
write(sum);
end.

а 2 счас допишу и чуть позже выложу.

плиз)

[kmax2]

подскажите что должно быть еще в начале

[kmax2]

вод или что там еще?

[kmax2]

народ помогите сделать алгоритмизацию
надо составить блок схему вот по этой проге

program c4;
uses crt;
var
n,k,kmax,sum:integer;
begin
writeln(' Vvedite "K" i "N" cherez probel');
readln(kmax,n);
if (kmax <= 0 ) or (n <= 0) then begin
writeln('Error! K <= 0 ili N <= 0');
exit;
end;
k := 1;
while (k <= kmax) do begin
if (n mod 4 = 0) then begin
sum := sum + n;
inc(k);
end;
inc(n);
end;
writeln('summa pavna:');
write(sum);
end.

помогите сросно уже мучаюсь 2 дня с этой прогой

плиз плиз плизззз

[kmax2]

помогите срочно прошу ппц просто плизз блог схему

[alex_fcsm]

скачайте FCEditor