uses Crt; { Nacteme knihovnu Crt nebot nize potrebujeme pouzit jeji funkci ClrScr a ReadKey. }

var
{ Deklarace promennych - Real znaci realne (desetinne) cislo }
{ NazevPromenne : TypPromenne; }
a : Real; { Deklarace promenne a - delka prvni strany podstavy jehlanu }
b : Real; { Deklarace promenne b - delka druhe strany podstavy jehlanu }
v : Real; { Deklarace promenne v - vyska jehlanu }
h : Real; { Deklarace promenne h - delka hrany jehlanu }

procedure VycistiObrazovku;
begin
ClrScr; { Vycisti obrazovku }
end;

procedure ZadejZadani;
begin
WriteLn('a - delka prvni strany podstavy jehlanu');
WriteLn('b - delka druhe strany podstavy jehlanu');
WriteLn('v - vyska jehlanu');
WriteLn('Hodnoty nezadavej na jeden radek, ale za kazdou stiskni klavesu Enter.');
WriteLn('Zadej hodnoty a, b, v:');
ReadLn(a, b, v)
end;

procedure TiskniZadani;
begin
WriteLn('Zadal jsi tyto hodnoty:');
WriteLn('a = ', a);
WriteLn('b = ', b);
WriteLn('v = ', v);
end;

procedure Pocitej;
var
tmp : Real; { Deklarace pomocne promenne tmp}
begin
{ Polovina delky uhlopricky podstavy jehlanu }
{ sqr - funkce pro vypocet druhe mocniny }
{ sqrt - funkce pro vypocet druhe odmocniny }
tmp := sqrt(sqr(a) + sqr(b)) / 2;
{ Delka hrany jehlanu }
h := sqrt(sqr(tmp) + sqr(v));
end;

procedure TiskniVysledek;
begin
WriteLn('Vysledky:');
{ Cislice za promennou urcuji formatovani cisla. Napriklad "h:10:5" znamena, ze }
{ promenna "h" bude mit celkem 10 cislic, z toho 5 za desetinnou teckou. Nebude }
{ tak tisknout napriklad 1.2345678901E+01, ale 12.34567 } 
WriteLn('Delka hrany jehlanu h = ', h:10:5);
end;

procedure CekejNaKlavesu;
begin
WriteLn('Stiskni libovolnou klavesu pro ukonceni.');
ReadKey; { Cekej na stisk klavesy }
end;

begin
VycistiObrazovku;
ZadejZadani;
TiskniZadani;
Pocitej;
TiskniVysledek;
CekejNaKlavesu;
end.