Помогите пожалуйста!!!!

Ответ:

на Free Pascal

Объяснение:

var

 i, k : integer;

begin

 writeln('Числа кратные 13 и < 100 : ');

 for i := 1 to 100 do

   if i mod 13 = 0 then

     write(i, ' ');

 writeln;

 writeln('15 Чисел кратных 19 и > 100 : ');

 i := 100;

 k := 0;

 while k < 15 do begin

   if i mod 19 = 0 then begin

     write(i, ' ');

     inc(k);

   end;

   inc(i);

 end;

 writeln;

 writeln('20 Чисел кратных 13 или 17  и > 500 : ');

 i := 500;

 k := 0;

 while k < 20 do begin

   if (i mod 13 = 0) or (i mod 17 = 0) then begin

     write(i, ' ');

     inc(k)

   end;

   inc(i);

 end;

 writeln;

 writeln('10 Чисел оканчивающихся на 7 кратных 9 и > 100 : ');

 i := 100;

 k := 0;

 while k < 10 do begin

   if (i mod 10 = 7) and (i mod 9 = 0) then begin

     write(i, ' ');

     inc(k)

   end;

   inc(i);

 end;

end.