На русском языке. Напишите программу вычисления средней арифметического 3 чисел.

Program arif; var a,b,c,d: real; beginwriteln ('введите a'); readln (a); writeln ('введите b'); readln (b); writeln ('введите c'); readln (c); d: =(a+b+c) /3; writeln ('среднее арифметическое=',d); end.P.S если что обращайся