được nha bạn

cách giải

program namnao;

uses crt;

var nam:longint;

begin

write('Nhap nam: ');   readln(nam);

write('La nam: ');

case nam mod 10 do

 0:write('Canh');

 1:write('Tan');

 2:write('Nham');

 3:write('Quy');

 4:write('Giap');

 5:write('At');

 6:write('Binh');

 7:write('Din');

 8:write('Mau');

 9:write('Ky');

end;

case nam mod 12 do

 0:write(' Than');

 1:write(' Dau');

 2:write(' Tuat');

 3:write(' Hoi');

 4:write(' Ti');

 5:write(' Suu');

 6:write(' Dan');

 7:write(' Mao');

 8:write(' Thin');

 9:write(' Ty');

 10:write(' Ngo');

 11::write(' Mui');

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.