заданы 3 числа. напишите программу для нахождения среднего арифметического этих чисел. ПОМОГИТЕЕЕЕ

спасибо тебе большое

Программу? На Паскале АВС могу.program test;Var a,b,c:integer;d:real;BeginWriteln(‘введите 3 числа’);Readln(a,b,c);d:=(a+b+c)/3;Readln(d);End.