program strany_trojuholnika;
uses Crt;
var a,b,c:integer;

begin
 ClrScr;
 writeln('Zadaj strany trojuholnika.');
 writeln('Strana a:');
 readln(a);
 writeln('Strana b:');
 readln(b);
 writeln('Strana c:');
 readln(c);

 ClrScr;

 if ((a+b>c) and (a+c>b) and (b+c>a))
 then begin
  writeln('Strany ',a,', ',b,', ',c,' su stranami trojuholnika.');
  if ((a=b) or (a=c) or (b=c))
  then
   writeln('Trojuholnik je rovnoramenny.')
  else
   writeln('Trojuholnik nie je rovnoramenny.');

  if ((sqr(a)=sqr(b)+sqr(c)) or (sqr(b)=sqr(a)+sqr(c))
     or (sqr(c)=sqr(a)+sqr(b)))
  then
   writeln('Trojuholnik je pravouhly.')
  else
   writeln('Trojuholnik nie je pravouhly.');
  end
 else
  writeln('Strany ',a,', ',b,', ',c,' nie su stranami trojuholnika.');

 readln;
end.