У скольких чисел от 1 до 2030 включительно ровно четыре натуральных делителя? (Включая 1 и

Программа начинается с того, что мы объявляем необходимые переменные:
var sum, number: integer;
stringg: string;
begin
Для каждого из чисел смотрим, сколько у него целых множителей от единицы до самого этого числа:
for i:integer := 1 to 2030 do
begin
sum := 0;
writeln();
write('Number ', i:6 , ' делится нацело на ');
for j:integer := 1 to i do
if (i mod j = 0) then
begin
write(j:5);
sum := sum + 1;
end;
if (sum = 4) then
begin
stringg := string + ' ' + i + ', ';
Суммируем количество таких чисел:
number := number + 1;
end;
end;
Пишем ответ:
writeln(stringg);
end.