progam menentukkan bilangan prima

progam menentukkan bilangan prima


Uses wincrt;
Var
x:integer;
begin
write ('input bilangan : ');
readln(x);
if  (x mod 2=0) and (x<>2)then
writeln (x ,'bukan bilangan prima')
else
if (x mod 3=0) and (x<>3) then
  writeln (x ,' bukan bilangan prima')
else
if (x mod 5=0) and (x<>5) then
    writeln (x ,' bukan bilangan prima')
else
if (x mod 7=0) and (x<>7) then
 writeln (x,' bukan bilangan prima')
else
 writeln (x,' bilangan prima')

end.