8.05, 8кл Повторение. Uses graph,crt; Var a:Integer; Begin initgraph(a,a,’c:\tp\bgi’); … closegraph; end. Процедуры и функции графического режима