Даны два числа a и b.найти среднее арифметическое: (a+b)/2 !

Var a,b,z: real;     begin   write('введите два целых числа, разделяя их пробелом: ');   readln(a,b);   z: =(a+b)/2;   writeln('среднее арифметическое равно ',z); end.

Var a,b,c: integer; begin readln(a,b); c: = (a+b)/2; writeln(c); end.

Var   a: array [1..12] of real;   //массив стоимости   s: real;                         //сумма   i: integer; begin   s: = 0;   for i: = 1 to 12 do   {12 раз вводим стоимость предмета и прибавляем ее к значению s}   begin     writeln('введите стоимость предмета');     readln(a[i]);     s: = s + a[i];   end;   writeln('общая стоимость всех предметов:   ', s); end.

// pascalabc.net 3.0, сборка 1076 begin   var n: =readinteger('число элементов массива=');   var a: =arrrandom(n,-25,25);   write('исходный массив: '); a.println;   var k: =a.where(x-> sqr(x)> sqr(;   if k> 0 then writeln       ('найдено ',k,' элементов, квадрат которых больше квадрата первого')   else writeln       ('нет ни одного элемента, квадрат которого больше квадрата первого') end. тестовое решение: число элементов массива=15 исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16 найдено 7 элементов, квадрат которых больше квадрата первого