program labarator;

var a, b, c, res: real; // объявление переменных вещественного типа

begin
write('vvedite 3 cifri: ');  // просим ввести три числа
readln(a, b, c);  // считываем три числа
res := ((a+b+c)/3);  // считаем сред. арифм.
writeln('Srednee arifmeti4eskoe etih 3 4isel: ', res:0:5);  // выводим среднее арифм. res - переменная со значением. :0:0 - формат вывода
// первый ноль - сколько символов вообще выводить. (0 - неогр.) второе число - сколько чисел после точки. (0 без дробной части. 5 - 5 символов)
writeln('Drobna 4ast: ', frac(res):0:5); // frac - берет дробную часть
res:= Exp( (1/3) * Ln(a*b*c));  // через экспоненту возводим произведение в 1/3 степень (корень третей степени)
writeln('srednee geometri4eskoe: ', res:0:5);
res := res div 1; // берем дробную часть
writeln('Drobnaya 4ast: ', frac(res):0:5);
readln();   // делаем задержку экрана, пока не нажмется ENTER
end.