uses crt;
var z:char;
    a,b,c,obsah:real;
function obsah_troj(a,b,c:real):real;
var obvod:real;
    begin
    if (a+b>c) and (a+c>b) and (b+c>a) then begin
       obvod:=(a+b+c)/2;
       obsah_troj:=sqrt(obvod*(obvod-a)*(obvod-b)*(obvod-c));
       end else obsah_troj:=-1;
    end;
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);
     obsah:=obsah_troj(a,b,c);
     if obsah=-1 then writeln('Vstupy nevytvari trojuhelnik!!!') else
     writeln('Obsah trojuhelniku je: ',obsah:2:2);
writeln('----------');
write('Opakovat a/n: ');readln(z);
until (z='n');
end.