program pascal (bilangan prima)

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.
semoga bermanfaat,,,,,,,,aminnnn