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

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