Даны два числа a и b.найди их средне арифметическое: (a+b)/2, если a=4.6; b=3.4

Program qq;
uses crt;
var a,b,c:real;
begin
write('Введите число a ');
read(a);
write('Введите число b ');
read(b);
c:=(a+b)/2;
writeln('Среднее арифметическое этих чисел равно ',c);
end.

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