Составить план к рассказу ты не сирота(отрывок) 30 ! тема чтение!

Program asd; var a1,a2,a3: integer;   sr: real; begin write('введите а1: ');   readln(a1);   write('введите a2: '); readln(a2); write('введите а3: '); readln(a3); if (a1> =5) and (a1< =10) then writeln('есть.  ',a1)    else    if (a2> =5) and (a2< =10) then writeln('есть.  ',a2)    else    if (a3> =5) and (a3< =10) then writeln('есть.  ',a3)  else      writeln('нету.') end.

Program asd; var a,c: array[1..2500] of integer; i,n,s,ii: integer;   sr: real; begin write('введите n: ');   readln(n); writeln('массив: ');   for i: =1 to n do     begin   a[i]: =1+random(9);     write(a[i]: 2);     end;       writeln;     writeln('все элементы, которые меньше последнего числа в ряду: '); for i: =1 to n do    begin   if a[i]< a[n] then write(a[i]: 2);   end;   writeln;   writeln('среднее арифметическое элементов массива: ');     for i: =1 to n do    begin    s: =s+a[i];     sr: =s/i;   end;   writeln(sr: 2: 2);         writeln('номер элементов, которые от 3 до 7.: ');       for i: =1 to n do    begin    if   (a[i]> =3) and (a[i]< =7)      then   begin    c[i]: =i;     write(c[i],' ');     end;       end;     end.