var
a: integer;
b: integer;
h: integer;
begin
writeln('Введите основания, затем высоту: ');
readln(a,b,h);
writeln ((a+b)/2*h);
end.
Объяснение:
var
a: integer;
b: integer;
h: integer;
begin
writeln('Введите основания, затем высоту: ');
readln(a,b,h);
writeln ((a+b)/2*h);
end.
Объяснение: