Паскаль

var
a, b, c: integer;

begin
readln(a);
readln(b);
readln(c);
writeln(a+b+c);
writeln(a*b*c);
writeln((a+b+c)/3);
end.

как-то так, если без ухищрений.. . но вводить только целые числа. Правда не знаю будет ли считать деление, если там не целое, лучше проверить, у меня нет паскаля для моей оси. Если для тетрадки - разумнее написать real вместо integer... На компе будет некрасиво выводиться ответ, нужно допиливать,...