Программка для вычисления среднего арифметического из 2-ух чисел в паскале

var
a,b,s : real; // объявляем переменные 

begin
writeln(Введите два числа:); // вывод на экран строчки
readln(a,b);                           // считываем два числа, введенных с клавиатуры
s:= (a + b) / 2 ;                    // вычисляем среднее арифметическое 
writeln (Среднее арифметическое чисел , a, и , b, одинаково , s); // вывод на экран результата
end.