<span><span>Program Zvezda;
Uses GraphABC;
begin
SetBrushColor(clred);
Line(290, 111, 240, 190);
Line(240, 190, 171, 190);
Line(170, 190, 241, 250);
Line(241, 250, 209, 320);
Line(209, 320, 290, 289);
Line(290, 289, 369, 318);
Line(369, 318, 340, 248);
Line(340, 248, 410, 190);
Line(410, 190, 340, 190);
Line(340, 190, 289, 111);
Line(289, 113, 289, 289);
Line(242, 249, 341, 190);
Line(340, 249, 242, 190);
Line(171, 191, 290, 220);
Line(291, 220, 411, 191);
Line(209, 319, 290, 222);
Line(290, 222, 369, 321);
Readln;
Closewindow;
End.</span></span>
Sub mac1()
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4,
NumColumns:=3
End Sub
Var
x,y:integer;
a:array [1..12] of string;
begin
a[1]:=cock;
..
a[12]:=monkey;
read(x);
y:=(abs(2016-x) )mod 12;
write(a[y]);
end.
Вроде должно работать. Проверить не могу - сижу с телефона