Program haromszog; var a,b,c,l,g:real; begin WriteLn('Kerem a haromszog oldalait!'); Readln(a); Readln(b); Readln(c); if (b>=a) and (b>=c) then begin l:=a; a:=b; b:=l; end; if (c>=a) and (c>=b) then begin l:=a; a:=c; c:=l; end; g:=(c*c+b*b-a*a)/(2*c*b); if g=0 then writeln('Derekszogu'); if g>0 then writeln('Hegyesszogu'); if g<0 then writeln('Tompaszogu'); readln End.