Вычислить среднее арифметическое и среднее геометрическое модулей заданных чисел - Turbo Pascal

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

Всем привет. Условие: Заданы 4 числа. Вычислить среднее арифметическое и среднее геометрическое модулей. Исходные данные a,b,c,d. Проверьте пожалуйста задачу, она запускается, но мне важно знать, все ли в ней правильно. Делал по аналогии.

Program zad1;
Uses crt;
Var a,b,c,d:longint;
 begin
 a:=abs (a);
 b:=abs (b);
 c:=abs (c);
 d:=abs (d);
 writeln ('vvedite 4 4isla');
 readln (a,b,c,d);
 writeln ('srednee arifmetich=', (0.5*(a+b+c+d)):8:3);
 writeln ('srednee geometri4 modulei=', (sqrt(a*b*c*d)):8:3);
writeln ('nagmi enter');
readln;
end.

Вот новый вариант, с поправками. Мне нужно знать, правильно ли построена задача.

Program zad1;
Uses crt;
Var a,b,c,d:longint;
 begin
 a:=abs (a);
 b:=abs (b);
 c:=abs (c);
 d:=abs (d);
 writeln ('vvedite 4 4isla');
 readln (a,b,c,d);
 writeln ('srednee arifmetich=', ((a+b+c+d)/4):8:3);
 writeln ('srednee geometri4 modulei=', sqrt(sqrt(abs(a*b*c*d))):8:3);
readln;
end.

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

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

sr:=(abs(a)+abs(b)+abs(c)+abs(d))/4;

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

В данном коде выполняется вычисление среднего арифметического модулей заданных чисел.

Переменная sr представляет собой результат вычисления среднего арифметического модулей чисел a, b, c и d.
Вычисление среднего арифметического модулей выполняется путем сложения модулей всех заданных чисел и деления полученной суммы на 4 (так как у нас 4 числа).
Значение переменной sr будет равно среднему арифметическому модулей заданных чисел.