program Means1;
var
  a, b, c, arith, geo: real;
begin
  a := 2; b := 4; c := 8;   { готові значення }
 
  arith := (a + b + c) / 3;
 
  { геометричне середнє без Math — через просте наближення }
  geo := (a * b * c);
  geo := exp(ln(geo) / 3.0);  { IDEONE підтримує exp і ln у FreePascal }
 
  WriteLn('Numbers: ', a:0:2, ', ', b:0:2, ', ', c:0:2);
  WriteLn('Arithmetic mean = ', arith:0:4);
  WriteLn('Geometric mean = ', geo:0:4);
end.
 

cHJvZ3JhbSBNZWFuczE7CnZhcgogIGEsIGIsIGMsIGFyaXRoLCBnZW86IHJlYWw7CmJlZ2luCiAgYSA6PSAyOyBiIDo9IDQ7IGMgOj0gODsgICB7INCz0L7RgtC+0LLRliDQt9C90LDRh9C10L3QvdGPIH0KCiAgYXJpdGggOj0gKGEgKyBiICsgYykgLyAzOwoKICB7INCz0LXQvtC80LXRgtGA0LjRh9C90LUg0YHQtdGA0LXQtNC90ZQg0LHQtdC3IE1hdGgg4oCUINGH0LXRgNC10Lcg0L/RgNC+0YHRgtC1INC90LDQsdC70LjQttC10L3QvdGPIH0KICBnZW8gOj0gKGEgKiBiICogYyk7CiAgZ2VvIDo9IGV4cChsbihnZW8pIC8gMy4wKTsgIHsgSURFT05FINC/0ZbQtNGC0YDQuNC80YPRlCBleHAg0ZYgbG4g0YMgRnJlZVBhc2NhbCB9CgogIFdyaXRlTG4oJ051bWJlcnM6ICcsIGE6MDoyLCAnLCAnLCBiOjA6MiwgJywgJywgYzowOjIpOwogIFdyaXRlTG4oJ0FyaXRobWV0aWMgbWVhbiA9ICcsIGFyaXRoOjA6NCk7CiAgV3JpdGVMbignR2VvbWV0cmljIG1lYW4gPSAnLCBnZW86MDo0KTsKZW5kLgo=