Hãy nhập mảng A có n phẩn tử. In ra mảng B có các phần tử là số nguyên tố, số lớn nhất trong các số vừa nhập vào của mảng A trong pascal

var n,i,max,a,d: int64;
    b: array[1..100005] of int64;
function prime(n: int64): boolean;
var i: int64;
begin
    for i:=2 to trunc(sqrt(n)) do if n mod i = 0 then exit(false);
    if n>=2 then exit(true) else exit(false);
end;
begin
    readln(n);
    read(a); max:=a; d:=1;
    if prime(a) then begin
        b[d]:=a;
        d:=d+1;
    end;
    for i:=2 to n do begin
        read(a);
        if max<a then max:=a;
        if prime(a) then begin
            b[d]:=a;
            d:=d+1;
        end;
    end;
    for i:=1 to d-1 do write(b[i],' ');
    writeln;
    write(max)
end.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}

var a : array[1..100] of longint ;
    b : array[1..100] of longint ;
    i, n, vt, max: longint ;
  function prime(n:longint):boolean;
        var i : longint ;
     begin
    if n < 2 then exit(false);
    for i := 2 to trunc(sqrt(n)) do 
        if n mod i = 0 then exit(false);
    exit(true);
     end ;
begin
    readln(n);
    for i := 1 to n do read(a[i]);
    vt := 0 ; max := a[1]; 
    for i := 1 to n do 
         begin
        if prime(a[i]) then 
             begin
            inc(vt);
            b[vt] := a[i];
             end ;
        if max < a[i] then max := a[i];
         end ;
    if vt = 0 then writeln(-1)
    else for i := 1 to vt do write(b[i],' ');
    writeln ;
    writeln(max);
    
end .