Var
s: integer;
mas: array[1..4]of integer;
begin
s := 0;
for var i := 1 to 4 do
begin
mas[i] := 2 * i;
s := s + mas[i];
end;
writeln(s);
end.
Ответ:20
uses graphABC;
<span>procedure paravoz(x,y:integer);
var i,x1:integer;
begin
setpencolor(clBlack);
setbrushcolor(clBlack);
x1:=x+11;
for i:=1 to 5 do
begin
circle(x1,y+83,11);
x1:=x1+20
end;
rectangle(x,y+35,x+80,y+75);
lineto(x+33,y+35);
lineto(x+38,y+10);
lineto(x+15,y+10);
lineto(x+22,y+35);
floodfill(x+25,y+30,clBlack);
setpencolor(clGreen);
setbrushcolor(clGreen);
rectangle(x+70,y,x+115,y+75);
end;
var x,y:integer;
begin
x:=windowwidth-350;
y:=200;
lockdrawing;
repeat
clearwindow;
paravoz(x,y);
sleep(100);
redraw;
until x<=5;
end<span>.</span></span>
1)10001111111010 2)101111110111110 3)100011000101011110
Он нужен для измерения давления