{Учебная программа - итоговый тест по информатике}
Program informatika;        {Заголовок программы}
Uses Crt;                   {Подключение модуля}

{ Процедура вывода строки из 80 решеток }
Procedure Line80;
     var
          i:integer;
     begin
          for i:=1 to 80 do write('#');
          writeln;
     end;

{ Процедура вывода ошибки }
Procedure Error;
    begin   
TextBackground(0);    
     TextColor(4);  
     CLRSCR;           
     Gotoxy(10,13);       
     Writeln('ВЫ ОШИБЛИСЬ!!! БУДЬТЕ ВНИМАТЕЛЬНЫ В СЛЕДУЮЩИЙ РАЗ!!!');
Delay(5000); 
readln;                    
    end;               

label { раздел описания меток }
     finish;

   var               {Описания раздела переменных}
   D:record
   end;
      a,b:integer;    {переменные a,b - целого типа}
   m,n,o,i:string; {переменные m,n,o,i - строко-вого типа}
Begin              {начало программы}


    

    
    a:=0; {переменной а присваивается число 0}


  Writeln('1. В информатике количество инфор-мации определяется как:'); 
{вывод текста на эк-ран}
  
  Writeln('1) достоверность информации;');
  {вывод текста на экран}
  
  Writeln('2) скорость передачи информации; ');
  {вывод текста на экран}
  Writeln('3) мера уменьшения неопределенно-сти;');
  {вывод текста на экран}
 
  Writeln('4) объем оперативной памяти.');
  {вывод текста на экран}
 
  Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
  if i='3'  then a:=a +1   {если <условие> то}
  else                      {Условие не выполнено}
    begin           {начало составного оператора}
      Error          { Процедура вывода ошибки }
    end; {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('2. Массовое производство персональных компьютеров началось:');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) в 50-е гг.;  '); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) в 60-е гг.; '); {вывод текста на эк-ран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) в 70-е гг.;'); {вывод текста на эк-ран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) в 80-е гг.'); {вывод текста на эк-ран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
if i='10'  then goto finish;
if i='4'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin     {начало составного оператора}
     Error    { Процедура вывода ошибки }
    end; {конец  составного оператора}

  TextBackground(10); {Установка цвета экрана}
  TextColor(14); {Установка цвета текста}
  CLRSCR; {Очистка и закраска фона экрана}
  Gotoxy(8,12); {Установка курсора в заданные ко-ординаты: X,Y}
  Writeln('3. За единицу измерение количества информации принят:');
  {вывод текста на экран}
  Gotoxy(11,13); {Установка курсора в заданные координаты: X,Y}
  Writeln('1) 1 бод;  '); {вывод текста на эк-ран}
  Gotoxy(11,14); {Установка курсора в заданные координаты: X,Y}
  Writeln('2) 1 бит; '); {вывод текста на экран}
  Gotoxy(11,15); {Установка курсора в заданные координаты: X,Y}
  Writeln('3) 1 байт;'); {вывод текста на экран}
  Gotoxy(11,16); {Установка курсора в заданные координаты: X,Y}
  Writeln('4) 1 килобайт.'); {вывод текста на экран}
  Gotoxy(25,17); {Установка курсора в заданные координаты: X,Y}
  Readln(i); {ввод значения i с клавиатуры}
    if i='10'  then goto finish;
  if i='2'  then a:=a +1 {если <условие> то ...}
  else                   {Условие не выполнено}
    begin                {начало составного опе-ратора}
     Error    { Процедура вывода ошибки }
    end; {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('4. Как записывается десятичное число 5 в двоичной системе счисления?');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) 101;  '); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) 110; '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) 111;'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) 100.'); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='1'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin         {начало составного оператора}
     Error        { Процедура вывода ошибки }
    end; {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('5. Производительность работы компью-тера (скорость его работы) зависит от:');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) размера экрана дисплея; ');   {вы-вод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) частоты процессора; '); {вывод тек-ста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) напряжения питания;'); {вывод тек-ста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) быстроты нажатия клавиши.');  
{вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='2'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin          {начало составного оператора}
     Error         { Процедура вывода ошибки }
    end;          {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('6. Какое устройство может  оказывать  вредное  воздействие  на  здоровье         че-ловека?');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) принтер;'); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) монитор; '); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) системный блок;'); {вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) модем.'); {вывод текста на экран}
Gotoxy(25,18); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='2'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin           {начало составного оператора}
     Error          { Процедура вывода ошибки }
    end; {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('7. Файл-это:');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) программа в оперативной памяти;');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) единица измерения информации; ');
{вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) текст, распечатанный на принте-ре;'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) программа или данные на диске.');
{вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='4'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin               {начало составного опе-ратора}
     Error           { Процедура вывода ошибки }
    end;           {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR;   {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('8. Что называется алгоритмом?'); 
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) последовательность команд, которую может выполнить исполнитель;'); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) система команд исполнителя;'); {вы-вод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) ненумерованная последовательность строк;');
{вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) нумерованная последовательность строк.   ');
{вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='1'  then a:=a +1   {если <условие> то ...}
  else                   {Условие не выполнено}
    begin           {начало составного оператора}
     Error          { Процедура вывода ошибки }
    end;          {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('9. Какая из последовательностей ко-манд приведет исполнителя Черепашку в первона-чальное место и положение?');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) вперед (1 см), направо (90), впе-ред (1 см), направо (90), вперед   '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln(' (1 см), направо (90), вперед (1 см), направо (90);'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) вперед (1 см), направо (90), впе-ред (1 см), направо (90), вперед');
{вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln(' (1 см), направо (90), вперед (1 см);');
{вывод текста на экран}
Gotoxy(11,18); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) вперед (1 см), направо (90), впе-ред (1 см), направо (90), вперед (1 см), на-право (90); ');
{вывод текста на экран}
Gotoxy(11,20); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) вперед (1 см), направо (90), впе-ред (1 см), направо (90). '); {вывод текста на экран}
Gotoxy(25,21); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='1'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin           {начало составного оператора}
     Error          { Процедура вывода ошибки }
    end;          {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('10. Модель есть замещение  изучаемого  объекта  другим объектом, который         от-ражает:   ');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) все стороны данного объекта;  ');
{вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) некоторые стороны данного объек-та;');
{вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) существенные стороны данного объ-екта;');
{вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) несущественные стороны данного объекта.');
{вывод текста на экран}
Gotoxy(25,18); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='3'  then a:=a +1  {если <условие> то ...}
  else                 {Условие не выполнено}
    begin          {начало составного оператора}
     Error         { Процедура вывода ошибки }
    end;          {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('11. Минимальным объектом, используе-мым в текстовом редакторе, является:   ');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) слово;'); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) точка экрана (пиксель);');
{вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) абзац;'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) символ (буква).'); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='4'  then a:=a +1  {если <условие> то ...}
  else                {Условие не выполнено}
    begin          {начало составного оператора}
     Error         { Процедура вывода ошибки }
    end;          {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('12. Количество разичных кодировок букв русского алфавита составляет:   ');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) одну;'); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) две (MS-DOS, Windows);'); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) три (MS-DOS, Windows, Macintosh);');
{вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) пять (MS-DOS, Windows, Macintosh,ISO, КОИ-8).'); {вывод текста на эк-ран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='4'  then a:=a +1  {если <условие> то ...}
  else                    {Условие не выполнено}
    begin           {начало составного оператора}
     Error          { Процедура вывода ошибки }
    end;        {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14);      {Установка цвета текста}
CLRSCR;          {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('13. Инструментами в графическом ре-дакторе являются:   ');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) линия, круг, прямоугольник;  ');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) выделение, копирование, встав-ка;');
{вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) карандаш, кисть, ластик;');   {вы-вод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) наборы цветов.'); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='3'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin         {начало составного оператора}
     Error        { Процедура вывода ошибки }
    end;          {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9);   {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('14. Графический файл содержит полную информацию о каждой точке изображе- ния, если он сохранен в формате:');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) BMP; '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) JPG;    '); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) TIF;   '); {вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) GIF.   '); {вывод текста на экран}
Gotoxy(25,18); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='1'  then a:=a +1   {если <условие> то ...}
  else                  {Условие не выполнено}
    begin          {начало составного оператора}
     Error         { Процедура вывода ошибки }
    end; {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('15. В состав мультимедийного компью-тера входит:   ');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) проекционная панель;'); {вывод тек-ста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) CD-ROM дисковод и звуковая пла-та;');
{вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) модем;'); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) плоттер.'); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='2'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin          {начало составного оператора}
     Error         { Процедура вывода ошибки }
    end;         {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('16. В электронных  таблицах  выделена группа ячеек  А1:В3. Сколько ячеек   входит в эту группу?   ');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) 6;  '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) 5;    '); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) 4; '); {вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) 3;   '); {вывод текста на экран}
Gotoxy(25,18); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='1'  then a:=a +1     {если <условие> то ...}
  else                  {Условие не выполнено}
    begin          {начало составного оператора}
     Error         { Процедура вывода ошибки }
    end;          {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR;      {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('17. Основным элементом базы данных является:   ');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) поле;  '); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) форма; '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) таблица; '); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) запись. '); {вывод текста на экран}
Gotoxy(25,17); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='4'  then a:=a +1  {если <условие> то ...}
  else                  {Условие не выполнено}
    begin           {начало составного оператора}
     Error           { Процедура вывода ошибки }
    end;           {конец  составного оператора}

TextBackground(11);  {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('18. Модем, передающий информацию со скоростью 28800 бит/с,  передает две');
{вывод текста на экран}
Gotoxy(8,13); {Установка курсора в заданные коор-динаты: X,Y}
Writeln(' страницы текста (3600 байт) в тече-нии:');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) 1 сек;'); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) 1 минуты; '); {вывод текста на эк-ран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) 1 часа; '); {вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) 1 дня. '); {вывод текста на экран}
Gotoxy(25,18); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='1'  then a:=a +1   {если <условие> то ...}
  else                   {Условие не выполнено}
    begin           {начало составного оператора}
     Error          { Процедура вывода ошибки }
    end;        {конец  составного оператора}

TextBackground(10); {Установка цвета экрана}
TextColor(14); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('19. Какой из способов подключения к Интернет обеспечивает наибольшие   ');
{вывод текста на экран}
Gotoxy(9,13); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('возможности для доступа к информаци-онным ресурсам?');
{вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) удаленный доступ по коммутируемому телефонному каналу;  '); {вывод текста на экран}
Gotoxy(11,15); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) постоянное соединение по оптоволо-конному каналу; '); {вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) постоянное соединение по выделен-ному телефонному каналу;   ');                {вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) терминальное соединение по комму-тируемому телефонному каналу.'); {вывод текста на экран}
Gotoxy(25,18); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='2'  then a:=a +1   {если <условие> то ...}
  else                   {Условие не выполнено}
    begin           {начало составного оператора}
     Error          { Процедура вывода ошибки }
    end;        {конец  составного оператора}

TextBackground(11); {Установка цвета экрана}
TextColor(9); {Установка цвета текста}
CLRSCR; {Очистка и закраска фона экрана}
Gotoxy(8,12); {Установка курсора в заданные коор-динаты: X,Y}
Writeln('20. Гипертекст-это:   ');
{вывод текста на экран}
Gotoxy(11,13); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('1) очень большой текст;  '); {вывод текста на экран}
Gotoxy(11,14); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('2) структурированный текст, в котором могут осуществляться переходы по           вы-деленным меткам;');
{вывод текста на экран}
Gotoxy(11,16); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('3) текст, набранный на компьютере;   ');
{вывод текста на экран}
Gotoxy(11,17); {Установка курсора в заданные ко-ординаты: X,Y}
Writeln('4) текст, в котором используется шрифт большого размера.   '); {вывод текста на экран}
Gotoxy(25,18); {Установка курсора в заданные ко-ординаты: X,Y}
Readln(i); {ввод значения i с клавиатуры}
  if i='10'  then goto finish;
if i='2'  then a:=a +1   {если <условие> то ...}
  else            {Условие не выполнено}
    begin         {начало составного оператора}
     Error        { Процедура вывода ошибки }
    end;         {конец  составного оператора}



   TextBackground(4); {Установка цвета экрана}
   TextColor(12); {Установка цвета текста}
   CLRSCR; {Очистка и закраска фона экрана}
   Gotoxy(0,0); {Установка курсора в заданные ко-ординаты: X,Y}
   WRITELN(m,' ',o,' ',n,' класс'); {вывод тек-ста на экран}
   GOTOXY(9,15); {Установка курсора в заданные координаты: X,Y}
   GOTOXY(8,12); {Установка курсора в заданные координаты: X,Y}
     if a=20 then      {если <условие> то ...}
       writeln('Я не могу поверить!  Вы отве-тили на все вопросы!  Я  оцениваю Ваши знания      оценкой 5+.');
       {вывод текста на экран}
     if a=19 then
       writeln('Вы допустили 1 ошибку!  Вы от-лично ориентируетесь  в  мире  информатики.      МОЛОДЕЦ!!! 5.');
       {вывод текста на экран}
     if (a<=18) and (a>=16) then
       writeln('Вы допустили  ',b,' ошибки!  Мне бы хотелось,  чтобы  Вы  в  следующий  раз      ответили лучше! 4. ');
       {вывод текста на экран}
     if (a<=15) and (a>=10) then
       writeln('Вы  допустили ',b,'  ошибок!   Я  посоветовала  бы  Вам  изучать  получше         информатику! 3.');
       {вывод текста на экран}
     if a<=9 then
        writeln('Вы допустили  ',b,'  ошибок!  Ваши  знания  отвратительны!  Жду  Вас  на          пересдачу зачета! 2. ');
        {вывод текста на экран}
    GOTOXY(0,14); {Установка курсора в заданные координаты: X,Y}
    Line80;     { нарисовать линию }
    GOTOXY(9,15); {Установка курсора в заданные координаты: X,Y}
    Writeln('Спасибо, что протестирова-лись!!!');    {вывод текста на экран}
    Delay(15000); {Задержка}

finish:
readln;
End.                           {конец программы}