1) вывести все натуральные числа от 100 до 200 кратные 52) подсчитать общее кол-во делителей числа 100

program zz1;

var i, k:integer; / / задаем переменные целого типа

begin

writeln (' список чисел от 100 до 200 кратных пяти:');

for i:=100 to 200 do / / переберем все числа от 100 до 200

if i mod 5 = 0 then write (i,' '); / / проверяем, если число делится на пять, то выводим его на экран

writeln;

for i:=1 to 100 do / / переберем все числа от 1 до 100

if 100 mod i = 0 then k:=k + 1; / / проверяем, если число 100 делится на i, то считаем его

write (' количество делителей числа 100 = ', k); / / выводим ответ

end.