Sekedar iseng ngopi tugas Dasar Pemrograman,mungkin bermanfaat.
program cekPrima;
var N, i : integer;
status : string;
begin
write('Masukkan N : ');
readln(N);
status := 'PRIMA';
for i:=2 to N-1 do
begin
if (N mod i = 0) then
begin
status := 'TIDAK PRIMA';
break;
end;
end;
write('Bilangan ',N,' adalah : ',status);
end.