***I VARIANT (EI TÖÖTA):***

uses CRT;

var
  A, B, C : REAL;

begin

 clrscr;

 writeln('Sisesta kolmnurga küljed:');
 write('A: '); readln(A);
 write('B: '); readln(B);
 write('C: '); readln(C);
 writeln;

  WRITELN('Kolmnurk on: ');

  IF (A+B)>C AND (A+C)>B AND (B+C)>A THEN
   BEGIN

     IF (A=B AND A=C) THEN
      BEGIN
        WRITELN('võrdkülgne');
      END;

     ELSE
          IF (A=B OR A=C OR A=B)  THEN
         BEGIN
           WRITELN('võrdhaarne');
         END;

          ELSE
               BEGIN
                 WRITELN('erikülgne');
               END;
    END;

  ELSE
       BEGIN
         WRITELN('kolmnurka ei eksisteeri');
       END;


     END.


***II VARIANT (TÖÖTAB):***

USES CRT;

VAR
 A, B, C : REAL;

BEGIN

 CLRSCR;

 WRITELN('SISESTA KOLMNURGA KÜLJED:');
 WRITE('A: '); READLN(A);
 WRITE('B: '); READLN(B);
 WRITE('C: '); READLN(C);
 WRITELN;
 WRITE('KOLMNURK ON: ');

 IF A+B>C THEN
  BEGIN
   IF A+C>B THEN
    BEGIN
     IF B+C>A THEN
      BEGIN

        IF A=B THEN

  BEGIN
    IF A=C THEN
        BEGIN
            WRITELN('VÕRDKÜLGNE');
        END;

    IF A<>C THEN
        BEGIN
            WRITELN('VÕRDHAARNE');
        END;

  END;

 IF A<>B THEN

  BEGIN
    IF A=C THEN
        BEGIN
            WRITELN('VÕRDHAARNE');
        END;


    IF A<>C THEN
        BEGIN

         IF B=C THEN
            BEGIN
              WRITELN('VÕRDHAARNE');
            END;

         IF B<>C THEN
            BEGIN
              WRITELN('ERIKÜLGNE');
            END;
        END;

   END;
   END;
   END;
   END;

   IF A+B<=C THEN
    BEGIN
     WRITELN('OLEMATU');
    END;


   IF C+B<=A THEN
    BEGIN
     WRITELN('OLEMATU');
    END;


   IF A+C<=B THEN
    BEGIN
     WRITELN('OLEMATU');
    END;

 READLN;

END.



***III ASI, LIHTSAM (EI TÖÖTA):***

USES CRT;

VAR
 A, B : REAL;

BEGIN

 CLRSCR;

 WRITELN('SISESTA KAKS ARVU:');
 WRITE('A: '); READLN(A);
 WRITE('B: '); READLN(B);
 WRITELN;

 IF A=B THEN

  BEGIN
     WRITELN('VÕRDSED.');
  END;

  ELSE 
        BEGIN
            WRITELN('EI OLE VÕRDSED');
        END;

 READLN;

 END.