Hai sobatblogger, kali ini saya akan sedikit berbagi ilmu tentang bahasa pemrograman, disini saya akan mengulas program mencari bilangan prima dan tentunya dengan bahasa pascal, oke langsung saja ini dia programnya
Uses wincrt;
var a,b,n,z,i,sisa:integer;
begin
write(' Masukkan angka : ');
readln(b);
a:=2;
for n:= 3 to b do
{while (b<=c)
do }
begin
Repeat
sisa:= n mod a;
a:=a+1;
Until
(sisa= 0) or (a=(n-i));
{ if n=2 then writeln('2 adalah prima'); }
if sisa=0 then
write('')
else writeln( n,' adalah prima');
a:=2;
{ i:=i+1; }
end;
{ readln;
goto 1; }
end.
