***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.