uses crt;
var a,b,c,obsah,obvod:real;
begin
     clrscr;
     writeln('Trtkal 2008 - http://fei.trtkal.net');
     writeln('-----------------------------------');
     write('Zadej stranu a: ');readln(a);
     write('Zadej stranu b: ');readln(b);
     write('Zadej stranu c: ');readln(c);
     if (a+b>c) then begin
     obvod:=(a+b+c)/2;
     obsah:=sqrt(obvod*(obvod-a)*(obvod-b)*(obvod-c));
     writeln('----------');
     writeln('Vysledky:');
     writeln('Obvod trojuhelniku o stranach: ',a:3:2,', ',b:3:2,', ',c:3:2,' je: ',obvod:3:2);
     writeln('Obsah trojuhelniku o stranach: ',a:3:2,', ',b:3:2,', ',c:3:2,' je: ',obsah:3:2);
        end
     else write('Tohle neni trojuhelnik!');
writeln('----------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.
