напишите программу определяющую среднее арфиметическое двух чисел,

vara,b:integer;beginwrite('Введите значение A=');read(a);write('Введите значение B=');read(b);write('Среднее арифметическое чисел=',(a+b)/2);end.