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>
В реале сфоткай, а то не видно что решать.
Жорсткий диск,ссд накопитель,відеокарта,процесор
var
i: <em>integer</em>;
begin
for k: <em>byte</em> := 0 to 10 do
i += round(power(2, k));
writeln(i);
<span>end.</span>