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

PascalABC.NET 3.4.2, сборка 1861 от 09.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var (a, b) := ReadReal2('Введите два числа:');

 Println('Ср.арифметическое', (a + b) / 2);

 Println('Ср.геометрическое модулей', Sqrt(Abs(a * b)));

end.

Введите два числа: -56.32 138

Ср.арифметическое 40.84

Ср.геометрическое модулей 88.1598548093178

var a,b:integer;

c,d:real;

begin

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

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

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

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

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

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

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

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

end.