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.