uses crt;
var a,b,c,obsah,obvod:real;
    z:char;
begin
repeat
     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) and (a+c>b) and (b+c>a) 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 writeln('Tohle neni trojuhelnik!');
writeln('----------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.
