Вот все числа в ряд (без запятых):
использовать Чертежник
алг
нач
| 1
сместиться на вектор (1,3)
опустить перо
сместиться на вектор (2,2)
сместиться на вектор (0,-4)
поднять перо
| 2
сместиться на вектор (1,3)
опустить перо
сместиться на вектор (0,1)
сместиться на вектор (2,0)
сместиться на вектор (0,-2)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
поднять перо
| 3
сместиться на вектор (1,4)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
сместиться на вектор (2,0)
сместиться на вектор (-2,-2)
поднять перо
| 4
сместиться на вектор (3,4)
опустить перо
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (0,2)
опустить перо
сместиться на вектор (0,-4)
поднять перо
| 5
сместиться на вектор (3,4)
опустить перо
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,-2)
сместиться на вектор (-2,0)
поднять перо
| 6
сместиться на вектор (5,4)
опустить перо
сместиться на вектор (-2,-2)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
поднять перо
| 7
сместиться на вектор (3,2)
опустить перо
сместиться на вектор (2,0)
сместиться на вектор (-2,-4)
поднять перо
| 8
сместиться на вектор (3,2)
опустить перо
сместиться на вектор (0,2)
сместиться на вектор (2,0)
сместиться на вектор (0,-4)
сместиться на вектор (-2,0)
сместиться на вектор (0,2)
сместиться на вектор (2,0)
поднять перо
| 9
сместиться на вектор (1,-2)
опустить перо
сместиться на вектор (2,2)
сместиться на вектор (0,2)
сместиться на вектор (-2,0)
сместиться на вектор (0,-2)
сместиться на вектор (2,0)
поднять перо
сместиться на вектор (-27,-3)
кон
1) s:=1*2=2
2)s:=2*2=4
3)s:=4*2=8
4)s:=8*2=16
5)s:=16*2=32
6)s:=32*2=64
7)s:=64*2=128
Ответ: s:=128
2*80*60*800=7680000
(2*80- сколько всего строк
2*80*60- сколько символов на одной странице
2*80*60=9600
Во всей книге: 9600*800=7680000
//PascalABC.NET 3.1 сборка 1219
begin
var a := ArrRandomInteger(10, -900, 900);
a.Println;
Writeln('Max = ', a.Max);
Writeln('Min = ', a.Min);
end.