блок схемы к программам

[проффан]

Помогите пллиз с Блок схемами
1)var
k,sum1,sum2,sum3,ocenka,i,j:integer ;
srball1,srball2,srball3:real;
a:array[1..100] of integer;
begin
for k:=1 to 3 do begin
for i:=1 to 20 do begin
for j:=1 to 3 do begin
readln(ocenka);
if k=1 then
sum1:=sum1+ocenka;
if k=2 then
sum2:=sum2+ocenka;
if k=3 then sum3:=sum3+ocenka;
end;
end;
end;
srball1:=sum1/20;
srball2:=sum2/20;
srball3:=sum3/20;
if srball1>srball2 then if srball1>srball3 then writeln('luchaya gryppa=',1);
if srball2>srball1 then if srball2>srball3 then writeln('luchaya gryppa=',2);
if srball3>srball1 then if srball3>srball2 then writeln('luchaya gryppa=',3);
end.

2)var
s,n,i,r:integer;
begin
for i:=31 to 99 do begin
if i mod 3 = 0 then
if (i mod 10 = 2) or (i mod 10 = 4) or (i mod 10 = 8)
then s:=s+i;
end;
writeln(s);
end.


3)var
s,n,i,r:integer;
begin
writeln('kol-vo el-tov cepi');
readln(n);
for i:=1 to n do begin
readln(r);
s:=s+r;
end;
writeln(s);
end.