program chuongtrinh;

var n,i,j,tong,max,min,dem,nb: integer;

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

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

begin

write('Nhap vao so luong so: ');

readln(n);

for i:=1 to n do

   begin

write('Nhap vao so thu ',i,': ');

readln(a[i]);

end;

tong:=0;

for i:=1 to n do

begin

if a[i] mod 2 <> 0 then

tong := tong + (a[i]*a[i]);

end;

writeln('Tong bang: ', tong);

max:= a[1];

for i:= 1 to n do

begin

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

end;

min:=a[1];

for i:=1 to n do

begin

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

end;

nb:=0;

for i:=min to max do

begin

for j:=1 to n do

begin

if i=a[j] then

begin

nb:=nb+1;

b[nb]:=i;

break;

end;

end;

end;

for i:=1 to nb do

begin

dem:=0;

for j:=1 to n do

begin

if b[i]=a[j] then

dem:= dem+1;

end;

writeln('So lanxuat hien cua  ',b[i],' la: ',dem);

end;

readln

end.

var m: array[1..100] of integer;
    n,i,max,j,t,scp: integer;
begin
 clrscr;
  write ('nhap n: ');  readln (n);
  for i:=1 to n do
   begin
    write ('nhap m[',i,']: ');  readln (m[i]);
    if max<=abs(m[i]) then max:=abs(m[i]);
   end;
  for i:=1 to n-1 do
   for j:=i+1 to n do
    if m[i]<m[j] then
     begin
      t:=m[i];
      m[i]:=m[j];
      m[j]:=t;
     end;
  write ('day sau khi sap xep giam dan: ');
  for i:=1 to n do write (m[i],' ');
  writeln;
  writeln ('gia tri tuyet doi lon nhat trong day: ',max);
  write ('cac so chinh phuong trong day: ');
  for i:=1 to n do
   begin
    scp:=trunc(sqrt(m[i]));
    if sqr(scp)=m[i] then
    write (m[i],' ');
   end;
 readln;
end.