Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2 — Pascal(Паскаль)

program sr;
var srednee, a, b: real;
begin
    write('Введите значения a и b: ');
    readln(a, b);
    srednee := (a + b) / 2;
    writeln('Среднее арифметическое -- ', srednee);
end.