Pascalda Üçgen Türünü Bulan Program, Pascalda Üçgen Türü Hesaplama

Uses crt;
Var
     A,B,C:Byte;
Begin
     clrscr;
     Write('A Kenarı='); Readln(A);
     Write('B Kenarı='); Readln(B);
     Write('C Kenarı='); Readln(C);

     If (A=B) AND (B=C) AND (A=C) then Writeln('Eşkenar Üçgen')
     else if (A=B) OR (A=C) OR (B=C) Then Writeln('İkizkenar Üçgen')
     else Writeln('Çeşit Kenar üçgen');

     Readln;
End.