{ OBJEMIHL.PAS                                                      }
{ Program vyziada rozmery ihlanu a vypocita jeho objem.             }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program ObjemIhlanu;
uses crt;
var
   V,Sp,a,b,c,vyska,s : real;
   
begin
 clrscr;
 writeln('Program vypocita objem ihlanu');
 writeln('-----------------------------');
 
 write('Zadaj cislo a : ');
 readln(a);
 write('Zadaj cislo b : ');
 readln(b);
 write('Zadaj cislo c : ');
 readln(c);
 write('Zadaj vysku ihlanu v : ');
 readln(vyska);
 
 s := a + b + c / 2;
 S := sqrt (s * (s - a) * (s - b) * (s - c));
 V := S * vyska / 3;
 writeln('Objem ihlanu je ',V:0:4);
 readln;
end.