Помогите пожалуйста решить задачу в Паскале
Вывести на экран все натуральные числа от 15 до В. Вводятся К произвольных чисел. Вывести первый элемент, который больше 100. Найти среднюю оценку за контрольную работу, если в классе 16 человек.

№1var i,b:integer;beginreadln(b);for i:=15 to b dowrite(i,' ');end.№2.var k,q,i,a:integer;beginreadln(k);q:=0;for i:=1 to k do beginreadln(a);if (a>100)and(q=0) thenq:=a; end;writeln(q);end.№3.var a,s,i:integer;begins:=0;for i:=1 to 16 dobeginreadln(a);s:=a+s;end;writeln(s/16:3:2);end.