1)агерес любит цифры, а также с цифрами. но не все так просто. дело в том, что некоторая цифра a недавно начала казаться ему странной, поэтому агерес решил всяко избегать использования этой цифры. сегодня агерес делал дз по и в качестве ответа на одно из он получил большое число n, теперь он хочет записать в тетради ответ на эту , но так как ему кажется странной цифра a, он решил записать минимальное число, которое не содержит цифр a, и при этом оно не меньше n. так как агерес еще маленький, а числа большие, то он обратился к вам за . формат файла входных данных: в первой строке дано число n (1 < = n < = 1015 во второй строке дана цифра a (1 < = a < = 9). формат файла выходных данных: выведите минимальное число, больше либо равное n, не содержащее цифр a.

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var (n,A):=(ReadlnInteger,ReadlnInteger);
  var d:=A.ToString;
  while (n.ToString).Contains(d) do n+=1;
  n.Println
end.

Пример
644
4
650

  program proga_25_1;
 Var
A: text;     
i,j,n,m : byte;     
 d: string;     
Sim:char;
 Begin             
write('Введите имя текстового файла   ');  {Например: "test" он создастся там где находится сама программа }               
read(d);                                       
 Assign(A,d);               
 rewrite(A);                   
 write('Введите количество строк: N= ');                        
readln(n);                   
 write('Введите количество символов в строке: M= ');                     
  readln(m);                                     
for I:=1 to n do                   
 begin                         
 Sim:=Chr(Ord('1')+I-1);                         
  For J:=1 to m do                             
  write(A,Sim);                               
 writeln(A);                 
  end;                         
  close(A);
end.     

Program proga;
Var  
p: text;   
  i, n : byte;     
 s,min,m: string;     
 Begin                         
 write('Введите имя файла   ');  {Например: C:.txt}                         
 read(m);
Assign(p,m);      
  reset(p);
    read(p,s);
 min:=s;   
 n:=100;   
 for i:=1 to n do   
 begin     
readln(p,s);                                      
while not eof(p) do  
 {нахождение минимальной строки}       
   begin         
 readln(p,s);       
   if length(s) <= length(min) then        
  min:=s;         
 end;          
 end;
close(p);   
 write('самая короткая строка: ',min);
End.