Фигурное катание - вывести итоговую оценку фигуриста

    uses crt;
// -----------------------------------------------------------------------------
Function endsWith(var currentMail:string;var dome:string[8]):boolean;
    var i:integer;
        tmp:string;
Begin
    i:=length(currentMail);
    tmp:=currentMail[i-1]+currentMail[i];
    endsWith:=false;
    
    if ((tmp = 'by') or (tmp = 'ru') or(tmp = 'ua') or (tmp = 'pl')) then
    Begin
        tmp:='';
        tmp:=copy(currentMail,pos('@',currentMail)+1,length(dome));
        if (tmp = dome) then endsWith:=true;
    End
End;
// -----------------------------------------------------------------------------
    var input,output:text;
        n,counter,i :byte;
        domen:string[8];
        currentMail:string;
begin
  Assign(input,'input.txt');
  Reset(input);
  
  Readln(input,n);
  ReadLn(input,domen);
  
  counter:=0;
  For i:=1 to n do
  Begin
    ReadLn(input,currentMail);
    if endsWith(currentMail,domen) then inc(counter);
  End;
  
  Assign(output,'output.txt');
  ReWrite(output);
  Write(output,counter);
  
  Close(input);
  Close(output);
  Readln;
end.

    uses crt;
    var input,output:text;
        n,i :byte;
        sum,x:real;
begin
  Assign(input,'input.txt');
  Reset(input);
  
  Readln(input,n);
 
  For i:=1 to n do
  Begin
    Read(input,x);
    sum:=sum+x;
  End;
  
  Assign(output,'output.txt');
  ReWrite(output);
  Write(output,sum/n);
  
  Close(input);
  Close(output);
  Readln;
end.