посчитайте, Кто шарит за Pascal ABC, информатика 8 класс написать программу. ​

Программа выводит числа на промежутке от 1000 до 100000, которые одновременно кратные 11, 13, 17, 19

var

i : longint;

begin

for i := 1000 to 100000 do

if (i mod 11 = 0) and (i mod 13 = 0) and (i mod 17 = 0) and (i mod 19 = 0) then

write(i,' ');

end.