1. Đếm xem trong mảng có bao nhiêu số chính phương. ghi kết quả bài toán vào tệp pepsi.OUT 2. Tách các phần tử chẵn của mảng mới nhập sang 1 mảng mới rồi in mảng vừa tách ra mà hình.

1:

program Hello;
var s,st:string;
    i,n,x:longint;
begin
    readln(n);
    for i:= 1 to n do
        begin
            read(x);
            if sqrt(x) = trunc(sqrt(x)) then
                begin
                    str(x, s);
                    st:= st + s + ' ';
                end;
        end;
    writeln(st);
end.

==============================

2:

program Hello;
var s,st:string;
    i,n,x:longint;
begin
    readln(n);
    for i:= 1 to n do
        begin
            read(x);
            if x mod 2 = 0 then
                begin
                    str(x, s);
                    st:= st + s + ' ';
                end;
        end;
    writeln(st);
end.