Написать программу (диапазон [0..300]) которая подсчитывает количество целых чисел, у которых ровно 5 делителей- Pascal(Паскаль)

uses crt;
procedure KolDel(n:integer;var k:byte);
var i:integer;
begin
k:=0;
for i:=1 to n do
if n mod i=0 then k:=k+1;
end;
var i:integer;
    k,n:byte;
begin
clrscr;
writeln('Числа, имеющие ровно 5 делителей');
k:=0;
for i:=0 to 300 do
 begin
  KolDel(i,n);
  if n=5 then
   begin
    write(i,' ');
    k:=k+1;
   end;
 end;
writeln;
write('Количество=',k);
readln
end.