Программирование на языке Паскаль . Даны три числа . найдите сумму и среднее арифметическое чисел .

program p1:var a,b,c:integer;sa:real;begin:writeln ('ведите a.b,c');readln(a,b,c);Sa: a*b*c\3;writeln(Sa);end