Program pascal "segitiga"

Program pascal untuk menentukan apakah segitiga sama sisi , segitiga sama kaki atau segitiga sembarang ?

code:

uses wincrt;

var
A,B,C:integer;

begin
write('sisi A : '); readln(B);
write('sisi B : '); readln(C);
write('sisi C : '); readln(A);

IF A = B then begin
IF B = C then
begin
writeln('SEGITIGA SAMA SISI ');
end Else Begin
writeln('SEGITIGA SAMA KAKI');
End;
end ELSE begin
if B = C then Begin
writeln('SEGITIGA SAMA KAKI ');
End Else begin
if C = A then
Begin
writeln('SEGITIGA SAMA KAKI ');
End Else begin
writeln(' SEGITIGA SEMBARANG');
End;
End;
End;
End.