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

begin

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

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

  println('ср. модулей', sqrt(abs(a * ;

end.

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*;

writeln('среднее данных чисел ', d);

end.

шест. или. или. сем. и. какойта