Program test;
Var i:Integer;
button, button2, button3:1..8;
Begin
 WriteLn('Вам предлогается тест на тему "Поведение в кабинете информатике"');
 WriteLn;1
  WriteLn('На каком растоянии от монитора должен работать ученик ? ',#13,#10,'1: 15-20 см',#13,#10,'2: 50-70 см',#13,#10,'3: меньше 40 см',#13,#10,'4: 90-110 см ');
  ReadLn(button);
  Case button of
   1 : If button = 2 Then inc(i);
  end;
  WriteLn('Можно ли класть тетради, книги, диски на монитор и клавиатуру ? ',#13,#10,'1: Можно',#13,#10,'2: Можно только клавиатуру',#13,#10,'3: Можно только монитор',#13,#10,'4: Нельзя ');
  ReadLn(button2);
  Case button2 of
   1 : If button2 = 4 Then inc(i);
  end;
  WriteLn('При появление запахи гари нужно ...',#13,#10,'1: Бежать за водой, чтобы потушить',#13,#10,'2: Прекратить работу, сообщить преподу',#13,#10,'3: Не обращать внимание',#13,#10,'4: Быстро убежать из кабинета ');
  ReadLn(button3);
  Case button3 of
   1 : If button3 = 4 Then inc(i);
  end;
  If i >=3 Then WriteLn('Оценка: зачет')
           Else Writeln('Оценка не зачет');
End.