Câu C như bạn yêu cầu nhé !

uses crt;

var a,b,c: integer;

begin

clrscr;

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

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

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

if (a=b) or (b=c) or (a=c) then writeln ('day la tam giac can') else write ('day khong phai la tam giac can);

if (a=b) and (b=c) then writeln ('day la tam giac deu') else writeln ('day khong phai la tam giac deu');

readln;

end.

bài 1 

a)

program chan;

uses crt;

var a:integer;

begin

        write('nhap vao so can kiem tra ');read(a);

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

  readln

end.

b)

program chan;

uses crt;

var b,a,c:integer;

begin

        write('nhap vao so can kiem tra ');read(a); 

        write('nhap vao so can kiem tra ');read(b);

        c:=a+b;

        if c mod 2=0 then write('tong hai so la so chan ') else write ('tong hai so la so le');

  readln

end.