1/

var a,b,c:real;

begin

writeln('Nhap a:'); Readln(a);

writeln('Nhap b:'); Readln(b);

writeln('Nhap c:'); Readln(c);

if (a=b and b=c or b=c and c=a) then writeln('La tam giac deu');

else writeln('Khong phai la tam giac deu');

if (a=b or b=c or a=c) then writeln('La tam giac can');

else writeln('Khong phai la tam giac can');

if (a*a=b*b+c*c or b*b=c*c+a*a or c*c=b*b+a*a) then writeln('La tam giac vuong');

else writeln('Khong phai la tam giac vuong');

Readln

End.

3/

var a:real;

begin

write('Nhap so a='); Readln(a);

if x mod 2=0 then writeln('x la so chan');

else writeln(' x la so le');

Readln

End.

mình làm chừng đó thôi nha