Вычислить дробную часть среднего геометрического трех заданных вещественных чисел - Pascal

Формулировка задачи:

Доброго времени суток!Помогите, пожалуйста, составить блок-схему на языке Turbo Pascal- Вычислить дробную часть среднего геометрического трех заданных вещественных чисел.

Решение задачи: «Вычислить дробную часть среднего геометрического трех заданных вещественных чисел»

Листинг программы

uses crt;
var a,b,c,s:real;
begin
clrscr;
repeat
writeln('Введите 3 вещественных числа с дробной частью');
readln(a,b,c);
until(frac(a)<>0)and(frac(b)<>0)and(frac(c)<>0);
s:=exp(ln(abs(frac(a))*abs(frac(b))*abs(frac(c)))/3);
writeln('Среднее геометрическое дробных частей=',s:0:2);
readln
end.

Объяснение кода листинга программы

В начале кода используется библиотека crt, которая обеспечивает встроенные функции для работы с числами с плавающей точкой.
Переменные a, b и c объявлены как real, что означает, что они могут хранить вещественные числа.
Функция clrscr используется для очистки экрана перед вводом данных.
В цикле repeat-until выполняется запрос на ввод трех вещественных чисел с дробной частью.
Условие до тех пор, пока дробная часть каждого из чисел не станет равной нулю, гарантирует, что ввод был получен корректно.
Переменная s инициализируется значением exp(ln(abs(frac(a))abs(frac(b))abs(frac(c)))/3), которое вычисляет среднее геометрическое дробных частей трех чисел.
Функция writeln используется для вывода значения переменной s в формате с точностью до двух знаков после запятой.
Функция readln используется для чтения ввода пользователя.
Конец программы.