kode jenis tulisan

uses crt;
var a,b:longint; j:char;
begin clrscr;
write('masukkan sebuah bilangan yang sama atau lebih besar dari 2 : '); readln(a);
if a<2 then writeln('Maaf, bilangan yang dimasukkan tidak sesuai dengan permintaan program');
if a=2 then writeln('2 merupakan bilangan prima');
for b:=2 to a-1 do
begin
if a mod b = 0 then
begin
writeln(a,' bukan bilangan prima'); b:=a-1;
end else
if b=a-1 then writeln(a,' merupakan bilangan prima');
end;
readln
end.