Найти сумму целых чисел от 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.