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

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

program dividers_5;

var l, s: integer;

begin

l:=0;

for i:integer:=1 to 200 do

begin

for k:integer:=1 to i do if i mod k = 0 then l:=l+1;

if l=5 then

begin

write ('Число: ', 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:=0

end;

writeln ('Сумма чисел: ', s)

end.