Prima

uses wincrt;

var a,b,n,z,i,sisa:integer;


begin

write(' Masukkan angka : ');
readln(b);
a:=2;
writeln('___________________________');
writeln('| No | |');
for n:= 3 to b do
begin

Repeat
sisa:= n mod a;
a:=a+1;

Until
(sisa= 0) or (a=(n-i));


if sisa=1 then

begin

write('| ');
write(n);

begin
if n < 10 then
write(' ');
end;
writeln(' | adalah ***PRIMA*** |');

a:=2;

end;

end;
writeln('---------------------------');
end.