Dze je subor www.TrSek.com/zadania/trojuhol.pas{ TROJUHOL.PAS }
{ Zo zadanych dlzok stran urci ci je trojuholnik }
{ rovnostranny, rovnoramenny, pravouhly, neexistujuci. }
{ }
{ Author: Juraj Pupak }
{ Date : 27.10.2006 http://www.trsek.com }
program Trojuholnik;
uses crt;
var
a,b,c : integer;
begin
clrscr;
writeln('Zadaj strany trojuholnika a,b,c');
readln(a);
readln(b);
readln(c);
clrscr;
IF (a = b) and (b = c) and (a = c) THEN
begin
writeln('Rovnostranny');
end;
IF ((a = b) and (a <> c))
or ((a = c) and (a <> b))
or ((b = c) and (a <> c)) THEN
begin
writeln('Rovnoramenny');
end;
IF ((a * a) + (b * b) = (c * c))
or ((a * a) + (c * c) = (b * b))
or ((b * b) + (c * c) = (a * a)) THEN
begin
writeln('Pravouhly');
end;
IF (a + b < c) or (a + c < b) or (b + c < a) THEN
begin
writeln('Neexistuje');
end;
readln;
end.