Сложнейшая задача!, Дополнить число ***999 цифрами слева так,чтобы полученное число делило Опции

[Bac9]

Помагите плиз надо завтро срочно отчё здать а я нечё несделал!!!!Дополнить число ***999 цифрами слева так,чтобы полученное число делилось на 13,17,19!!

[Странник]

Немного подредактировал...Правильно?

uses crt;
VAR
q,a,b,c,k,i,j:longint;

BEGIN
clrscr;
a:=999;
 for i:=1 to 9 do
  begin
   for j:=0 to 9 do
    begin
     for k:=0 to 9 do
      begin
       c:=i*100000+j*10000+k*1000+9*100+9*10+9;
       if (c mod 13)=0 then
         writeln ('4ucLo geJluTc9 Ha 13 ',c);
       if (c mod 17)=0 then
         WRITELN('4ucLo geJluTc9 Ha 17 ',C);
       if (c mod 19)=0 then
         WRITELN('4ucLo geJluTc9 Ha 19 ',C);
      end;

     end;
   end;
readln;
end.