program ex3;
uses wincrt;
type
fiche=file of integer;
var
f:fiche;
n:integer;

procedure saisie( var n:integer);
begin
     repeat
           writeln('n=');
           readln(n);
     until (n>=10) and (n<=500)
end;

procedure remp (var f:fiche; n:integer);
var i,x:integer;
begin
     assign(f,'C:\Travail Pascal\Fichier d entiers\ex3.dat');
     i:=0;
     while not(eof(f)) and (i<=n) do
     begin
          repeat
          read(x);
          until (x>=1)and (x<=10000);
     write(f,x);
     end;
close(f);
end;

function verif(Y:integer):boolean;
var chy:string;OK:boolean;
begin
     ok:=false;
     repeat
     begin
          chy:='';
          str(y,chy);
          if (length(chy)=4)
             then
                 if ((y div 1000)+(y div 100)+(y div 10)+(y mod 10) = 20)
                     then OK:=true

           else
           if (length(chy)=3)
               then
                   if ((y div 100)+(y div 10)+(y mod 10) = 20)
                        then OK:=true;

     end;
     until (OK=true);
     verif:=OK;
end;

procedure affiche (var f:fiche; n:integer);
var i,x:integer; ch:string;
begin
     reset(f);
     i:=0;
     while not(eof(f)) and (i<=n) do
     begin
          i:=i+1;
          ch:='';
          str(x,ch);
          if (length(ch)=20) and verif(x)
             then write(f,x);
     end;
close(f);
end;

begin
saisie(n);
remp(f,n);
affiche(f,n);
end.