Кто разбирается в инфе? задали нарисовать елку с елочными шариками вот начало: program elka; uses graphabc; begin setwindowsize(900,800); floodfill(300,150, clgreen); setpencolor(clblack); setpenwidth(2); line(250,50,200,150); line(250,50,300,150); line(200,150,220,150); line(300,150,280,150); line(220,150,190,210); end.
дальше не могу сама !

// альтернативный вариантuses graphabc; begin setwindowsize(900,800); line(250,100, 300,50); lineto(350,100); lineto(250,100); floodfill(300,70, clgreen); line(220,200, 300,100); lineto(380,200); lineto(220,200); floodfill(300,150, clgreen);   line(200,300, 300,200); lineto(400,300); lineto(200,300); floodfill(300,250, clgreen); rectangle(290, 300,310, 320); floodfill(300,305, clbrown); line(0, 300, 100, 350);   lineto(200, 320); lineto(400, 320); lineto(600, 370); lineto(600,400); lineto(0,400); lineto(0,300); end.

Program Ok;
var A:array[1..10] of real;
sum:real;i,n:integer;
begin
randomize;
sum:=0;
for i:=1 to 10 do
begin
read(A[i]);
end;
for i:=10 downto 1 do
begin
if(A[i]>0) then
n:=i;
end;
for i:=1 to 9 do
begin
if (A[n] = A[i+1]) then
sum:=sum+1;
end;
writeln(sum);
end.

Делится на растровое и векторное

Вес страницы = 8*128=1024 бита
1024 бита= 1кбит
=> вес 800 страниц = 800*1=800кбит
800/60=13.(3) с
13 целых и одна третья секунды.