Линейный алгоритм.
Найдите среднее арифметическое d=a+b+c/3
a b c -целые числа, заданны с клавиатуры

Var a,b,c,s:real;
begin
writeln (Введите a, b, c: );
readln (a,b,c);
s:=(a+b+c)/3;
writeln (Их среднее: ,s);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.