Var
a,b,h,s:real;
begin
readln(a,b); // нижнее, верхнее основание
readln(h); // высота
s:=((a+b)/2)*h;
writeln(s);
end.
Ряд слов, букв написанных в одну линию
<em>Трассировка</em><span> — это операция, позволяющая определить адреса серверов, через которые проходят данные, получаемые браузером, а также скорость передачи данных каждым из серверов. Трассировка бывает полезна, например, когда необходимо выяснить причину долгой загрузки веб-сайта. Чтобы выполнить трассировку, откройте терминал командной строки, наберите команду следующего вида и нажмите клавишу «Enter»</span>
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>