Найти сумму целых чисел от 1 до 200,у которых ровно 5 делителей

Программа выводит сумму чисел и их делители.

program dividers_5;var l, s: integer;

beginl:=0;for i:integer:=1 to 200 dobeginfor k:integer:=1 to i do if i mod k = 0 then l:=l+1;if l=5 thenbeginwrite(\'Число: \', i : 8, \'.\');s:= s + i;write(\' Делители: \');for k:integer:=1 to i do if i mod k = 0 then write(k:4); writeln() end;l:=0end;writeln(\'Сумма чисел: \',s)end.