1

uses crt;

var a,b,c :real;

BEGIN

clrscr;

write('nhap canh a thu nhat'); Read(a);

write('nhap canh b thu hai:'); Readln(b);

write('nhap canh c thu ba'); Readln(c);

if (a>=b+c) or (b>=c+a) or (c>=a+b) then write('ba canh tren khong phai cua mot tam giac')

else

if (a=b) or (b=c) or (c=a) then write('tam giac tren la tam giac can');

else

if a=b=c then write('tam giac tren la tam giac deu')

else

if (a*a=b*b+c*c) or (b*b=c*c+a*a) or (c*c=a*a+b*b) then write('tam giac tren la tam giac vuong');

readln;

END.

 2

uses crt;

var a,b,c,Min,Max:integer;

begin

clrscr;

write('nhap 3 canh  a,b,c:');readln(a,b,c);

if (a>b>c) then Max:=a else 

if (b>a>c) then Max :=b else

if (c>a>b) then Max:=c ;

write('So lon nhat la:',Max);

if (a<b<c) then Min:=a else

if (b<a<c) then Min:=b else

if (c<a<b) then Min:=c ;

write('so nho nhat la:',Min);

readln;

end.

3

uses crt;

var a:integer;

begin

clrscr;

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

if a mod 2 =0 then write(a,'la so chan') else

write(a,'la so le);

readln;

end.