Информатика. 1) найти функцию y=lnx,если x=2 (0.2) 3. 2) найти функцию y=1/x, если x=0.1 (0.1) 2.

//Знаю, что это решение далеко от понятия "изящество"
//Pascal ABC.NET v3.0 сборка 1111
var
 max1,max2,max3,i,maxi1,maxi2:integer;
 ar:array of integer;
begin
max1:=-2147483648;
max2:=-2147483648;
max3:=-2147483648;
setlength(ar,1);
readln(ar[0]);
i:=0;
 repeat
  inc(i);
  setlength(ar,i+1);
  readln(ar[i]);
 until ar[i]=0;
 for i:=0 to i do
 if ar[i]>max1 then
  begin;
   max1:=ar[i];
   maxi1:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max2) and (i<>maxi1) then
  begin;
   max2:=ar[i];
   maxi2:=i;
  end;
 for i:=0 to i do
 if (ar[i]>max3) and (i<>maxi1) and (i<>maxi2) then max3:=ar[i];
write('Max1=',max1,' Max2=',max2,' Max3=', max3);
end.

Class FootballTask{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); int goals[] = new int[2], d = 0, e = 0;
  for(int cGoal = 0; cGoal<40; cGoal++){
   goals[cGoal%2] = in.nextInt();
   if(cGoal%2==1){
 if(goals[0]-goals[1]>=3)d++;
 if(goals[0]>goals[1])e+=3;
  else if(goals[0]==goals[1])e++;
   }
  }
  System.out.println("Разность забитых и пропущенных мячей большая или равная 3 допущена только в "+d+" игре(-ах).");
  System.out.print("Общее число очков, набранных командой - "+e);
 }
}