Срочно,ИКТ 9 класс помогите плиз

Question

Срочно,ИКТ 9 класс помогите плиз

---

Answer 1

1. 
var  s, t: integer;
begin  randomize;  s := 0;  for t := 1 to 30 do  begin    s := s + (random(166) - 5);  end;  writeln(s)end.
2.
var  a, b: integer;
beginreadln(a);readln(b);writeln(b - a + 1);end.

3.
Ответ : 99
k  s
3  9
4  21
5  36
6  54
7  75
8  99