Program Mencari Bilangan Prima Dengan Pascal

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.