begin
  var x,y,z:real; x:=10000; //read (x);
  var a,b:string;
  var w:array of real;
  SetLength(w,0);
  repeat
    b:=x.ToString;
    y:=b[1].ToDigit+b[2].ToDigit;
    z:=b[3].ToDigit+b[4].ToDigit+b[5].ToDigit;
    a:=y.ToString+z.ToString;
    
    if a.ToReal = 1215 then 
    begin
     setlength(w,w.Length+1);
     w[w.High]:=x;
    end;
    
   x:=x+1;
   //39069,93960
  until x.ToString.Length > 5;
  writeln('Рассчет окончен');
  writeln('Наименьшее число: ',w.Min);
  writeln('Наибольшее число: ',w.Max);
  writeln('Всего значений найдено: ',w.Length);
end.