(программирование, паскаль

Выясняем какое количество строк будет 2% от общего числа строк в каждой программе.
2% от 9000=180
Получается, что для каждого вируса он должен написать 180 строк кода.
На каждом компьютере 37 программ, каждая из которых состоит из 9000 строк кода. Выше мы выяснили сколько какое количество строк должен написать хакер для каждой из программ. А теперь выясним, какое количество строк он должен написать для всех программ на 1 компьютере, умножаем это количество на общее число вирусов, которых должен взломать хакер
180*37=6660
Далее, выясняем сколько вирусов должен написать хакер для всех компьютеров.
37*40=1480
Выясняем, общее число строк вирусного кода, которых должен написать хакер для всех программ на всех 40 компьютерах.
6660*40=266400
ответ: 1)1480 вирусов, 266400 строк кода

Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая:
Program futbol;
var fio: array [1..25] of string;
      gol: array [1..25] of integer;
       i,j: integer;
       f: string;
begin
   writeln ('Введите фамилии игроков, забивших голы');
   writeln ('Окончание ввода - пустая строка');
   j:=0;
repeat  
   readln(f)
   newfio:=true;
   for i:= 1 to j do begin
       if fio[i]=f then begin
             gol[i]=gol[i]+1;
              newfio:=not newfio;
             end;
       if newfio then begin
           j:=j+1;
           fio[j]:=f;
   end;
while not f='';

for i:= 1 to j do begin
  if gol[i]>2 then writeln fio[i];
end;
end.