У скольких чисел от 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.