Program Bilangan Prima

Program ini untuk menentukan apakah suatu bilangan yang diinputkan dapat dikatakan prima atau bukan, menggunakan bahasa Pascal. Cekidot!

Program bilangan_prima;
Uses wincrt;
Var
x:integer;
y:string;

Begin
write ('input bilangan : ');
readln(x);
if ((x mod 2=0) and (x<>2)) or (x=1) then
y:='bukan bilangan prima'
else if (x mod 3=0) and (x<>3) then
y:='bukan bilangan prima'
else if (x mod 5=0) and (x<>5) then
y:='bukan bilangan prima'
else if (x mod 7=0) and (x<>7) then
y:='bukan bilangan prima'
else y:='bilangan prima';
writeln(x,' adalah ',y);
end.

Daaaann . . . inilah hasilnya! Semoga bermanfaat, selamat mencoba! :)