Pascal Bilangan Prima

program bil_prima;
var
i,c,n:integer;
begin
readln(n);
c:=0;
for i:=2 to n do
if (n mod i=0) then
c:=c+1;
if (c=1) then
write('Bilangan Prima')
else
write('bukan bilangan prima');
readln;
end.