Информатика Pascal ABC

program lab5;
var
          j,i:integer;
          sum,z:real;
          v:integer;
          n: array [1..7] of real ;
begin
     writeln('Vvedite dannie za I kvartal');
     sum:=0;
     for i:=1 to 7 do begin
          readln(n[i]);
          sum:=sum+n[i];
     end;
     for i:=1 to 7 do
         writeln('% = ', (n[i]/sum)*100 );
     writeln('Vvedite dannie za II kvartal');
     sum:=0;
     for i:=1 to 7 do begin
          readln(n[i]);
          sum:=sum+n[i];
     end;
     for i:=1 to 7 do
         writeln('% = ', (n[i]/sum)*100 );
end.

program lab5;
var
          j,i:integer;
          sum,z,left,r:real;
          a,l,t: array [1..70] of real ;
          n: array [1..3] of integer ;
          
begin
     writeln('Vvedite m i a');
     readln(left,r);
      n[1]:=0;n[2]:=0;n[3]:=0;
     randomize;
     for i:=1 to 70 do begin
         a[i]:=random*r;
         t[i]:=random*r;
         l[i]:=random*r;
         if  (a[i]<r) and (a[i]>left) then
             inc(n[1]);
         if  (t[i]<r) and (t[i]>left) then
             inc(n[2]);
         if  (l[i]<r) and (l[i]>left) then
             inc(n[3]);
     end;
              writeln('v a popalo ' , n[1] ,' chisel');
              writeln('v t popalo ', n[2], ' chisel');
              writeln('v l popalo ', n[3], ' chisel');
 
end.