A[0]:=A[T];

Sdvyg(A,t,t2);

O1:=t2;

t2:=t2-1;

Sdvyg(A,O1,O); {Ћбў®Ў®¤Ё"Ёп祩Єг ¤"п ­®ў®© в®зЄЁ}

A[O]:=A[0];

schet;

readkey;

End

else Danger:=true;

Cleardevice;

Postr(A,o1,o2);

Until Danger or (t2=0);

Textcolor(4);

Writeln('ђҐ§г"мвваЎ®влЇа®Ја¬¬л');

If Danger then begin CloseGraph; Writeln('‘®Ґ¤Ґ­Ёвмв®зЄЁ ­Ґў®§¬®¦­®'); readln; end

else begin ClearDevice;

Postr(A,o1,o2);

readkey;

Closegraph;

end;

END.

Список литературы

1. Фаронов Turbo Pascal 7.0.

2. Погорелов А.В. Геометрия: Учебное пособие для вузов. – 2-е изд. – М.: Наука. Главная редакция физико-математической литературы, 1984. – 288с.

3. Дискретная математика для программистов / Новиков Ф. А. – Спб.: Питер, 2001. – 304 с. :ил.