Для изготовления папируса использовалось одноименное растение (’Cyperus papyrus’), принадлежащее к семейству осоковых. В древности дикорастущий папирус был распространен в долине Нила, ныне же он почти вывелся. При изгтовлении писчего материала стебли папируса очищались от кожуры и разрезались вдоль. Получившиеся полоски раскладывали внахлест на ровной повершности. На них выкладывали под прямым углом еще один ряд полосок и помещали под пресс. После сушки лист папируса отбивали молотком. Затем получившиеся листы папируса склеивались в свитки (а в более позднее время — соединялись в кодексы). Сторона, на которой волокна шли горизонтально, была лицевой (recto). Когда основной текст становился ненужен, обратная сторона могла быть, например, использована для записи литературных произведений (часто, впрочем, ненужный текст просто смывали)..
{Выводит узор из 100 произвольно размещенных окружностей произвольного
радиуса и цвета}
uses Graph;
var
grDriver:integer;
grMode: integer;
grPath:string;
ErrCode:integer;
x,y,r: integer; ( координаты центра и радиус окружности }
i: integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:=' ';
InitGraph (grDriver,grMode,grPath);
ErrCode:=GraphResult;
if ErrCode <> grOk then
begin
writeln ('Ошибка инициализации графического режима.1);
writeln ('Для завершения работы нажмите <Enter>');
readln;
Halt(l);
end;
Randomize;
for i:=l to 100 do
begin
x:=Random(640);
y:=Random(480);
r:=Random(240);
Setcolor(Random(16));
Circle(x,y,r);
end;
readin;
end.