Bài 1:

program ctpt;

uses crt;

  var a, b, c: real;

begin

  clrscr;

  write('Nhap canh a = '); readln(a);

  write('Nhap canh b = '); readln(b);

  write('Nhap canh c = '); readln(c);

  if (a+b>c) or (a+c>b) or (b+c>a) then write('3 canh a, b, c co the tao thanh tam giac') else

         write('3 canh a, b, c khong the tao thanh tam giac');

  readln

end.

Bài 2:

program ctpt;

uses crt;

  var a: integer;

begin

  clrscr;

  write('Nhap so nguyen a = '); readln(a);

  if (a mod 2 = 0) and (a mod 5 = 0) then write(a, ' chia het cho ca 2 va 5') else

      write(a, ' khong chia het cho ca 2 va 5');

  readln

end.

Program  Ba_canh_tam_giac;

Uses    crt;

Var         a, b, c: real;

Begin 

Clrscr;

write ( 'Nhap  ba  so  a,  b,  c:' ) ;   readln (a, b, c) ;

If  (a+b>c)  and  (b+c>a)  and  (c+a>b)  then

writeln ( 'a, b, c khong la 3 canh cua mot tam giac! ' ) ;

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

readln

end.