program prima atau bukan

program untuk memeriksa bilangan prima atau bukan

program prima;

uses wincrt;

var
N,i,x : integer;
prima : boolean;
limit : integer;
loop : char;

begin

repeat

clrscr;

write('Masukkan nilai angka : ');

read(N);


limit := round(sqrt(N))+1;

prima := true;

if (N=2) or (N=3) then

prima := true

else
for i:=2 to limit do

if N mod i = 0 then

prima := false;

if prima = true then begin

writeln(N,' bilangan prima');

end else begin

writeln(N,' Bukan bilangan prima');

writeln;
end;

write('Ulang lagi [Y/T] : '); loop:=upcase(readkey);

writeln(loop);


until loop <> 'Y';

end.