Программа, которая определит среднюю арифметическую 2-х целых чисел.

Program Arif;

var a,b:integer

m:real;

begin

writeln('Vvedite chisla: ');

readln(a,b);

m:=(a+b)\2;

writeln('Srednyaya: ',m:2:2);

readln;

end.