program Belozor5 var rez integer begin writeln Как включить компьютер

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
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.