Помогите решить задачи на Pascal...

2-я, но с одним циклом:
program z;
var count2,count5,n,i:integer;
marks:array[0..50] of integer;
r:real;
begin
count2:=0;
count5:=0;
r:=0;
writeln('Впишите количество учеников');
readln(n);
for i:=1 to n do
begin
marks[ i ]:=random(5)+1;
if (marks[ i ]=2) then
inc(count2);
if (marks[ i ]=5) then
inc(count5);
r:=r+marks[ i ];
end;
r:=r/n;
writeln('1) Среднее арифметическое всех отметок: ', r:7:3);
writeln('2) Количество "2": ', count2:5);
writeln('Количество "5": ',count5:5);
if (count2 > count5) then
writeln('3) 2 больше, чем 5')
else
if (count2 = count5) then
writeln('3) Количество 2 и 5 равны')
else
writeln('3) 5 больше, чем 2');
end.

1).
const N = 100;
Normative = 10.5;
var sporsmens: array [1..N] of integer;
i: integer;
sr: real;
begin
Writeln('Result of runs:');
sr := 0;
for i := 1 to N do
begin
Writeln(i, '). ', sportsmens[ i], ' seconds');
sr := sr + sportsmens[ i];
end;
sr := sr / N;
Writeln ('Average result: ', sr:5:2, ' seconds');
Writeln('Sportsmens, who can do normative');
for i := 1 to N do
if (sportsmens[ i] <= Normative) then Writeln(i);
end;

стучи в агент

var
rating : array [0..10] of Integer;
i : Integer;
count2 : Integer;
count5 : Integer;
sum :Integer;
begin
for i:=0 to 10 do
rating[ i ] := random(4)+2;
count2 := 0;
count5 := 0;
sum := 0;
for i:=0 to 10 do begin
if rating[ i ] = 2 then inc(count2);
if rating[ i ] = 5 then inc(count5);
inc (sum, rating[ i ]);
end;
WriteLn('Двоек: ', count2);
WriteLn('Пятерок: ', count5);
WriteLn('Среднее: ', sum/10);
if count2>count5 then
WriteLn('Двоек больше')
else
if count2=count5 then
WriteLn('Поровну двоек и пятерок')
else
WriteLn('Пятерок больше')
end.