Информатика (паскаль)

Даны два действительных числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей.

var a, b:integer;

c, d:real;

begin

a:=random (50) ; / / Если нужно вводить своё число, то тогда "a: = * заданное число*" или, иначе, readln (a) "

writeln ('Число "a" приняло значение ', a) ; / / Если будет один из двух способов, показанных выше, то эта строка не является обязательной.

b:=random (100) ; / / Если нужно вводить своё число, то тогда "b: = * заданное число*" или, иначе, readln (b) "

writeln ('Число "b" приняло значение ', b) ; / / Если будет один из двух способов выше, то эта строка не является обязательной.

c: = ((a+b) / 2) ;

writeln ('Среднее арифметическое данных двух чисел ', c) ;

d: = (sqrt (abs (a*b))) ;

writeln ('Среднее геометрическое данных чисел ', d) ;

end.