Блок-схема к данной программе

uses crt;
var a:array[1..15] of integer;
    i,n,sum,s,r,u:integer;
    v:real;
 begin
Write('Введите размер массива до ', 15, ' n=');
readln(n);
for i:=1 to n do
 begin
a[i]:=random(61)-30;
write(a[i]:4);
 end;
u:=0;
for i:=1 to n do
if i mod 2<>0 then
u:=u+a[i];
r:=0;
for i:=1 to n do
if a[i]=0 then
 begin
s:=i;
r:=r+1;
 end;
writeln;
writeln('Сумма элементов массива с нечетными номерами=',u);
writeln('Количество нулевых элементов массива=',r);
writeln('Номер первого нулевого элемента массива=',s);
v:=u/(r+1)+s;
Writeln('Ответ:',v:3:1);
Readln(v);
end.

uses crt;
 var a:array[1..15] of integer;
 i,n,sum,s,r,u:integer;
 v:real;
 begin
 Write('Введите размер массива до ', 15, ' n=');
 readln(n);
 for i:=1 to n do
 begin
 a[i]:=random(61)-30;
 write(a[i]:4);
 end;
 u:=0;
 for i:=1 to n do
 if i mod 2<>0 then
 u:=u+a[i];
 r:=0;
 for i:=1 to n do
 if a[i]=0 then
 begin
 s:=i;
 r:=r+1;
 end;
 writeln;
 writeln('Сумма элементов массива с нечетными номерами=',u);
 writeln('Количество нулевых элементов массива=',r);
 writeln('Номер первого нулевого элемента массива=',s);
 v:=u/(r+1)+s;
 Writeln('Ответ:',v:3:1);
 Readln(v);
 end.