1.

uses crt;

var max,i,a: integer;

begin

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

max:=a;

for i:=1 to 4 do

begin

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

if max<a then max:=a;

end;

write('MAX=',max);

readln

end.

2.

uses crt;
var a,b,c,d: integer;
begin
clrscr;
for a:=1 to 100 do
for b:=1 to 100 do
for c:=1 to 100 do
if a*b*c=(a*a*a)+(b*b*b)+(c*c*c) then d:=d+1;
if d<>0 then write('So do la: ',a,b,c) else write('Khong co so thoa man');
readln
end.

3.

uses crt;
var n,i: integer;
begin
clrscr;
write('Nhap so can phan tich: ');
readln(n);
i:=2;
write('Ket qua phan tich:');
write(n,'=');
while n>1 do
begin
if n mod i = 0 then Begin Write(i,'*'); n:= n div i end
else i:=i+1;
end;
readln
end.

4.

uses crt;

var a,i,s: integer;

begin

clrscr;

write('Nhap mot so: '); readln(a);

s:=0;

for i:=1 to a-1 do if a mod i = 0 then s:=s+i;

if s=a then begin

write(a,' la so hoan hao; vi ');

write('1);

for i:=1 to a-1 do if a mod i=0 then write('+',i);

write('=',a);

end

else write(a,' khong la so hoan hao');

readln

end.

B1:

var a,b,c,d,max:longint;

begin

 readln(a,b,c,d);

 max:=a;

if max<b then max:=b;

if max<c then max:=c;

if max<d then max:=d;

write(max);

readln;

end.

b3   

var n,i: integer; 

Begin

    Write('Nhap so can phan tich: ');Readln(n);

    i:=2;

    Write('Ket qua phan tich:');

    Write(n,'=');

    While n>1 do

    Begin

    if n mod i = 0 then Begin Write(i,' '); n:= n div i End

    else i:=i+1;

    End;

    Readln

End.

b4:

var i,t,n:longint;

begin

readln(n);

for i:=1 to n-1 do

if n mod i=0 then t:=t+i;

if t=n then write('la so hh')

else write('khong la so hh');

end.  

b2

var i,n:longint;
                                                  function kt(n:longint):boolean;
                                                  var m,t,x,n1:longint;
                                                  begin
                                                        kt:=false;
                                                        m:=0;
                                                        t:=0;
                                                        n1:=n;
                                                        while n>0 do
                                                         begin
                                                               m:=n mod 10;
                                                               n:=n div 10;
                                                               if n1=t+(m*m*m) then kt:=true;
                                                         end;
                                                  end;
                                                  begin
                                                         for i:=100 to 999 do
                                                         if kt(i) then write(i,' ');
                                                         readln;
                                                  end.