Найти сумму целых чисел из промежутка от 1 до 200, у которых ровно 5 делителей — Pascal(Паскаль)

uses crt;
var i,j,s,k:integer;
begin
clrscr;
writeln('Числа от 1 до 200, имеющие 5 делителей:');
s:=0;
for i:=1 to 200 do
 begin
  k:=0;
  for j:=1 to i do
  if i mod j=0 then k:=k+1;
  if k=5 then
   begin
    write(i,' ');
    s:=s+i;
   end;
 end;
writeln;
write('Их сумма=',s);
readln
end.