uses crt;

var n,i,max:integer;

a:array[1..100]of integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

max:=a[1];

for i:=1 to n do

if max<a[i] then max:=a[i];

writeln('So lon nhat la: ',max);

readln;

end.

Viết chương trình tạo mảng gồm N số nguyên tố đầu tiên. Số tự nhiên N được nhập từ bàn phím pascal

program bai_giai;
uses crt;
var n,i,d,vt,j:int64;a:array[1..1000]of int64;
function NT(n:int64):boolean;
var dem,j:longint;
        begin
         dem:=0;
         for j:=1 to n do if(n mod j=0)then inc(dem);
         NT:=dem=2;
        end;
begin
 clrscr;
  write('nhap N');readln(n);
  d:=0;
  i:=1;
  vt:=1;
  while d<>n do
        begin
         if(NT(i))then
                begin
                 d:=d+1;;
                 a[vt]:=i;
                 write('a[',d,']=',a[vt],' ; ');
                 vt:=vt+1;
                end;
         i:=i+1;
        end;
 readln;
end.

đúng ko bạn ???

('____')