Var s,p,real;
begin
p:=1;
s:=0;
for var i:=8 to 35 do
if i mod 2 = 0 then begin
s:=s+i;
p:=p*i;
end;
writeln('Сумма четных = ',s,', Произведенние четных = ', p);
end.
Program task;
var i,a:real;
begin
i:=-4;
while (i<=4) do begin
a:=(i*i*i)-(i*i)+16*i-43;
writeln(a:0:2);
i+=0.5;
end;
readln;
<span>end.</span>
Что бы найти пложадь круга надо число пи умножить на радиус в квадрате например 3,14×(2×2)=12,56
а про триугольник либо забыл либо не проходил
Program z13;
var s,l,pi:real;
r:integer;
begin
writeln('r=');
readln(r);
pi:=3.14;
s:=pi*sqr(r);
l:=2*pi*r;
writeln('s=',s,' l=',l);
readln;
end.