program Heron;
uses Crt;
var a,b,c:real;

procedure start(tytul:string);
begin
        ClrScr; Writeln('Katarzyna "Olivia" Myrek');
        Writeln(tytul); Writeln
end; {start}

procedure liczpole(a,b,c:real);
var pole,p:real;
begin
        Write('Pole tr¢jk¥ta');
        p:=(a+b+c)/2;
        pole:=Sqrt((p)*(p-a)*(p-b)*(p-c));
        Writeln(pole:8:2)
end;

procedure czekaj;
begin
        Writeln; Write('Nacisnij klawisz Enter.');
        Readln
end;

procedure czytajdane(var a,b,c:real);
begin
        Write('Podaj wymiar boku a: '); Readln(a);
        Write('Podaj wymiar boku b: '); Readln(b);
        Write('Podaj wymiar boku c: '); Readln(c);
end; {czytajdane}


begin {Heron}
start('Obliczanie pola trojkata');
czytajdane (a,b,c);
if (a+b<c) or (a+c<b) or (b+c<a) then
begin
 Writeln('Niepoprawne dlugosci bokow');
 czekaj; halt;
end;
liczpole(a,b,c); czekaj
end.