У скольких чисел от 1 до 2030 включительно ровно четыре естественных

Программка начинается с того, что мы объявляем необходимые переменные:
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.