Переключение режимов экрана

                   Program FirstGraph;

            uses Crt, Graph;

            var

                       DriverVar, ModeVar: integer;

            begin

                       ClrScr ; writeln(‘Текстовый режим’);

                       <операторы>

                       DriverVar:=Detest;

                       InitGraph(DriverVar, ModeVar,’’);

                       <операторы графики>

                       RestoreCrtMode; {восстановить текстовый режим}

                       Writeln(‘Текстовый режим’);

                       <операторы>

                       SetGraphMode(ModeVar);{Вернуть графический режим}

                       <операторы гафики>;

                       ReadKey;

CloseGraph;

                        end.