Bài 77:

program day_tang;

uses crt;

var n,i,a,b,d:integer;

begin

       clrscr;

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

       d:=0;   

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a);

                     if i=1 then b:=a

                     else

                            begin

                                   if b>a then d:=1;

                                   b:=a;

                            end;

              end;

       if d=1 then write('NO') else write('YES');

       readln;

end.

Bài 78:

program chinh_phuong;

var n,i,a,d:integer;

begin

       clrscr;

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

       d:=0;

       for i:=1 to n do

              begin

                     write('Nhap so thu ',i,': ');   readln(a);

                     if sqr(trunc(sqrt(a)))=a then d:=d+1;

              end;

       write('Co ',d,' so chinh phuong');

       readln;

end.

Bài 79:

program tong_uoc_duong_max;

uses crt;

var n,i,a,j,t,max,ptu:integer;

begin

       clrscr;

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

       write('Nhap so thu 1: ');  readln(a);

       ptu:=a;

       t:=0;

       for j:=1 to a do

              if a mod j=0 then t:=t+j;

       max:=t;

       for i:=2 to n do

              begin

                     write('Nhap so thu ',i,': ');  readln(a);

                     t:=0;

                     for j:=1 to a do

                            if a mod j=0 then t:=t+j;

                     if t>max then

                            begin

                                   max:=t;

                                   ptu:=a;

                            end;

              end;

       write('Phan tu co tong uoc duong lon nhat la: ',t);

       readln;

end.