{ Bài 4: Viết chương trình tìm và hiện ra màn hình n số nguyên tố đầu tiên (n nhập từ bàn phím). }
program songt;
uses crt;
var x,tu,n,d,i: integer;
begin
clrscr;
writeln('Nhap n: '); readln(n);
writeln(n,' so nguyen to dau tien la: ');
d:=0; x:=0;
repeat
x:=x+1;
tu:=0;
for i:=1 to x do if (x mod i=0) then tu:=tu+1;
if tu=2 then
begin
write(x,' ');
d:=d+1;
end;
until d=n;
readln;
end.