Ну, без высоты же не обойтись
var
a, b, h: <em>real</em>;
begin
readln(a, b, h);
writeln('S = ', (a * 0.5 + b / 2) * h);
<span>end.</span>
¬(A /\ ¬B) \/ ¬C ⇒ ¬A \<span>/</span> B \/ ¬C
const b:array[1..5] of integer = (3, 13, 8, 62, 104);
Вроде всё верно.
Изменил... теперь нормально все.
uses graphabc,crt;
var i:integer; h:real;
begin
randomize;
rectangle(280,130,320,320);
rectangle(250,10,350,260);
circle(300,55,35);
circle(300,135,35);
circle(300,215,35);
for i:=1 to 1000 do
begin
floodfill(300,55,clred);
delay(3000);
floodfill(300,55,clwhite);
delay(1000);
floodfill(300,135,clyellow);
delay(3000);
floodfill(300,135,clwhite);
delay(1000);
floodfill(300,215,clgreen);
delay(1000);
floodfill(300,215,clwhite);
delay(1000);
end;
end.
Да
в СИС теме много схем вот одна 546родикалит82-гом