Даны 3 числа
Найти сумму (K), a, b, c
произведение (R)
среднее арифметическое (N)
блок схема, программа.
Var a,b,c,K,R:integer; N:real; Begin Readln(a,b,c) K:=a+b+c; N:=(a+b+c)/3; R:=a*b*c; writeln(K); writeln(R); writeln(N); End.
Если я правильно понял что нужно было