Komputerku

program prima;
uses wincrt;
var i,n:integer;
prm: boolean;
begin
write ('masukkan nilai n: ');
read (n);
prm:true;
if (n mod 2 = 0) and (n<>0) then
write (n,' bukan bilangan prima')
else
begin
for i:=2 to n-1 do
begin
if n mod i = 0 then
begin
prm:=false;
end;
end;

if prm=false then
write (n,' bukan bilangan prima')
else
write (n,' bilangan prima');
end;
end.