Алгоритм на мужскую тему информатика​

1) Если использовать последний Паскаль АВС, который умеет вычислять степень (Power), то вот вариант программы:
var
   n:integer;
   s:real; {вообще, он целый, но мой компилятор не пропускает, почему-то считает, что                 результат вычислений будет real}
begins:=0;
n:=1;
while s<5 do 
   begin
   s:=3*power(n,4)-730*n; {для старого Паскаля напиши так: s:=3*sqr(sqr(n))-730*n}
   n:=n+1
end;
writeln(n)
end.

2)
var n,s:real;
begin
s:=0;
n:=1;
while s<=10 do
   begin
   s:=exp(n)-1000*Ln(n);
   n:=n+1
   end;
writeln(n)
end.

Если вводить футболистов с клавиатуры и их не больше, например, 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.