Menampilkan Bilangan Prima

uses crt;

var
b,i,x,sisa:integer;

begin
clrscr;
        write ('Masukan Batas Bilangan Prima yg akan ditampilkan: ');
        readln (b) ;

begin   writeln;
        writeln('2');
        for i:=3 to b do
begin
x:=1;
repeat
x:=x+1;
sisa:=i mod x;
until
(sisa=0) OR (x=i-1);
if sisa <> 0 then writeln (i);
end;
end;
readln;
end.