готово
Объяснение:
program srednee;
var a, b, c, S: real;
begin
readln(a, b, c);
S := (a + b + c) / 3;
writeln('Среднее арифметическое равно ', S);
end.
program ploshad;
var a, h, S: real;
begin
readln(a, h);
S := a * h / 2;
writeln('Площадь треугольника равна ', S);
end.