Cho lệnh khai báo mảng như sau : Var MANG:Array[1.50]of integer; hãy viết đoạn phương trình in ra tất cả các phần tử Chính Phương trong mảng trên ? Ai

uses crt;
var mang: array[1..50] of integer;
    n, i, s: integer;
begin
    clrscr;
    write(‘Hay nhap do dai cua mang: ‘);
    readln(n);
    for i := 1 to n do
    begin
        write(‘Hay nhap phan tu mang[‘, i, ‘]: ‘);
        readln(mang[i]);
    end;
    for i := 1 to n do
    begin
        writeln(‘Phan tu mang[‘, i, ‘] la ‘, mang[i]);
        s := mang[i] * mang[i];
        writeln(‘So chinh phuong cua ‘, mang[i], ‘ la ‘, s);
    end;
    readln;
end.