даны два числа 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.