найти среднее арифметическое трех чисел a,d,c. На языке паскаля

Program zadanie;
Var a,b,c:real;
Begin
 Writeln('Введите значения a,b,c');
 Readln(a,b,c);
 a:=(a+b+c)/3;
 Writeln('Среднее арифметическое чисел a,b,c=',a);
End.