a)program tam_giac;

uses crt;

vả a, b, c: real;

begin

clrscr;

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

if (a+b>c) and a+c>b and b+c>a then write('a, b, c la 3 canh cua tam giac')

else writeln('a, b, c khong phai la canh cua tam giac');

readln;

end.

b) program chan_le;

uses crt;

var a: real;

begin 

clrscr;

write('nhap so a:');readln(a);

if a mod 2=0 then writeln(a' chan')

else writeln('a le');

readln;

end.

c)

program so_lon_nhat;

uses crt;

var a, b: integer;

begin

clrscr;

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

write('nhap b:');readln(b);

if (a>b) then writeln('a lon nhat')

else writeln('b lon nhat');

readln;

end.

#CHUCBANDIEMCAONHA

A)

Program BTT:

Uses crt;

Var a, b, c : Real;

Begin

       Clrscr;

       Write(' Nhap a, b, c: '); Readln (a, b, c);

       If (a + b > c) and (a + c > b) and (b + c > a) then Write('Do la do dai 3 canh cua tam giac')

       Else write ('Do khong phai la do dai 3 canh cua tam giac');

       Readln;

End.

B)

Program BT;

uses       crt;

var   a: real;

begin    

clrscr;     

write('Nhap n: ');     

readln(n);     

if n mod 2 = 0 then write('n la so chan')

else ('n la so le');     

readln;

end.

C) 

Program BT;

uses   crt;

var     a,b: real;

begin

clrscr;

write ('nhap so',a,b);

readln (a,b);

if a>b then write (' so lon nhat la:',a)

           else write (' so lon nhat la:',b);

readln;

end.