Заданы 3 числа. напишите программу для нахождения среднего арифметического этих чисел.

Программу? На Паскале АВС могу.

program test;
Var a,b,c:integer;
d:real;
Begin
Writeln(‘введите 3 числа’);
Readln(a,b,c);
d:=(a+b+c)/3;
Readln(d);
End.