program Belozor5;
var a,rez:integer;
begin
  writeln('Как включить компьютер?,1)Нажать на кнопку включения блока питания 2)Покормить его 3)Пнуть компьютер');
  readln(a);
  if a=1 then rez:=rez+5;
  if a=2 then rez:=rez+0;
  if a=3then rez:=rez+0;
  writeln('Что нельзя делать с компьютером? 1)Работать за ним 2)Поливать его водой 3)Кидаться в него предметами');
readln(a);
  if a=1 then rez:=rez+0 ;
  if a=2 then rez:=rez+5;
  if a=3 then rez:=rez+5;
  writeln('Какой браузер стоит использовать? 1)InternetExplorer 2)GoogleChrome 3)Yandex');
  readln(a);
if a=1 then rez:=rez-2;
if a=2 then rez:=rez+5;
if a=3 then rez:=rez+3;
if rez<5 then writeln('2');
if (rez>=5) and (rez<10)then writeln('Ваша оценка - 3');
if (rez>=10) and (rez<15) then writeln ('Ваша оценка - 4');
if (rez>=15)  then writeln ('Ваша оценка - 5');
readln ();
end.