Program baitap;

Uses crt;

Var a,b,c:real;

Begin

Clrscr;

Write('Nhap lan luot 3 canh tam giac:'); 

Readn(a,b,c);

Writeln('Chu vi cua tam giac:',a+b+c);

If (a=b) and (b=c) then writeln('Tam giac do la tam giac deu')

                              Else writeln('Tam giac do khong phai la tam giac deu');

Readln

End.

Viết theo ngôn ngữ pascal:

uses crt; 

var a,b,c,s : real;

begin

clrscr;

writeln('Nhap so do 3 canh cua tam giac: ');

write('Nhap so do canh dau tien: '); readln(a); 

write('Nhap so do canh thu hai: '); readln(b); 

write('Nhap so do canh thu ba: '); readln(c);

s : = a + b + c;

writeln('Chu vi tam giac la: ',s:0:2);

if (a = b) and (a=c) then write('a, b, c la ba canh cua tam giac deu');

readln

end.