Написать программу для нахождения среднего арифметического двух чисел (подсказка использовать тип real)

//PascalABC.NET
//Версия 3.3, сборка 1634
begin
write('срзнач: ',(ReadReal('a=')+ReadReal('b='))/2);
end.