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

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

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