var a, b, h: integer; s: real; begin writeln('Ââåäèòå ÷èñëî - a'); readln(a); writeln('Ââåäèòå ÷èñëî - b'); readln(b); writeln('Ââåäèòå ÷èñëî - h'); readln(h); s:=(a + b)*h; writeln('Ïëîùàäü òðàïåöèè = ', s / 2) end.