Дано два целых числа. написать программу, определяющую среднюю арифметическую этих чисел. результат напечатать с двумя числами после запятой.

Begin 
Var k,l,m : integer; 
 var v: double; 
 writeln('Введите два цисла');
  ReadLn(k);  
  ReadLn(l);  
  v:=(k+l)/2;    
writeln('Среднее арифметическое ',v);
end.

Var a, b: real;
begin
  read(a, b);
  write((a + b) / 2 : 0 : 2)
end.