uses crt;
var a,k: Integer;
Begin

textbackground(blue);
clrscr;
 k:=0;
 writeLn('Тест по теме:"Компьютерные вирусы"');
 WriteLn ;
 WriteLn ;
 WriteLn ;
 WriteLn('Нажмите клавишу enter');
 readln;
 clrscr;
 WriteLn ;
 WriteLn('Ответьте на вопросы теста.');
 WriteLn ;
 WriteLn ;
 WriteLn('1. Что такое компьютерный вирус?');
 WriteLn;
 writeLn('1) Прикладная программа');
 WriteLn('2) Системная программа');
 WriteLn('3) Программа, выполняющая на компьютере ');
 WriteLn('   несанкционированные действия');
 WriteLn('4) База данных ');
 WriteLn;
  WriteLn ('Введите номер правильного ответа и нажмите клавишу enter:');
  Readln(a);
 if a=3 then k:=k+1;
 clrscr;
  WriteLn('2. Основные типы компьютерных вирусов:');
 WriteLn;
 writeLn('1) Аппаратные, программные, загрузочные ');
 WriteLn('2) Программные, загрузочные, макровирусы');
 WriteLn('3) Файловые, программные, макровирусы ');

 WriteLn;
  WriteLn ('Введите номер правильного ответа  и нажмите клавишу enter:');
  Readln(a);
 if a=2 then k:=k+1;
 clrscr;
   WriteLn('3. Этапы действия программного вируса:');
  WriteLn;
 writeLn('1) Размножение, вирусная атака');
 WriteLn('2) Запись в файл, размножение');
 WriteLn('3) Запись в файл, размножение, уничтожение программы');
 WriteLn;
  WriteLn ('Введите номер правильного ответа  и нажмите клавишу enter:');
  Readln(a);
 if a=1 then k:=k+1;
 clrscr;
   WriteLn('4. В чем заключается размножение программного вируса?');
  WriteLn;


 WriteLn('1) Программа-вирус один раз копируется в теле другой программы');
 WriteLn('2) Вирусный код неоднократно копируется в теле другой программы');
 WriteLn;
  WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=2 then k:=k+1;
 clrscr;
   WriteLn('5. Что называется вирусной атакой?');
  WriteLn;
 writeLn('1) Неоднократное копирование кода вируса в код программы');
 WriteLn('2) Отключение компьютера в результате попадания вируса');
 WriteLn('3) Нарушение работы программы, уничтожение данных,');
 WriteLn('   форматирование жесткого диска');

 WriteLn;
  WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=3 then k:=k+1;
    clrscr;
   WriteLn('6. Какие существуют методы реализации антивирусной защиты?');
  WriteLn;
 writeLn('1) Аппаратные и программные');
 WriteLn('2) Программные, аппаратные и организационные');
 WriteLn('3) Только программные');

 WriteLn;
  WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=3 then k:=k+1;
 clrscr;
   WriteLn('7. Какие существуют основные средства защиты');
  WriteLn;

 WriteLn('1) Резервное копирование наиболее ценных данных');
 WriteLn('2) Аппаратные средства');
 WriteLn('3) Программные средства');
 WriteLn;
  WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=1 then k:=k+1;
  clrscr;
   WriteLn('8. Какие существуют вспомогательные средства защиты');
  WriteLn;
 writeLn('1) Аппаратные средства');
 WriteLn('2) Программные средства');
 WriteLn('3) Аппаратные средства  и антивирусные программы');

 WriteLn;
  WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=3 then k:=k+1;
   clrscr;
   WriteLn('9. На чем основано действие антивирусной программы');
  WriteLn;
 writeLn('1) На ожидании начала вирусной атаки ');
 WriteLn('2) На сравнении программных кодов с известными вирусами');
 WriteLn('3) На удалении зараженных файлов');

 WriteLn;
  WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=2 then k:=k+1;
   clrscr;
   WriteLn('10. Какие программы относятся к антивирусным');
  WriteLn;
 writeLn('1) AVP, DrWeb, Norton AntiVirus');
 WriteLn('2) MS-DOS, MS Word, AVP');
 WriteLn('3) MS  Word, MS Excel, Norton Commander');

 WriteLn;
  WriteLn ('Введите номер правильного ответа:');
  Readln(a);
 if a=1 then k:=k+1;


 textbackground(red);
  clrscr;
    Case k of
   9..10:  WriteLn('Вы получили отметку "5". Похвально! И это с первого раза!');
   7..8:  WriteLn('Вы получили отметку "4". Рада за Вас. ');
   5..6:  WriteLn('Вы получили отметку "3". Будьте внимательны.');
 Else  WriteLn('Вы получили отметку "2". Учите информатику. ');
end;
 ReadLn
 End.