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

№1
var i,b:integer;
begin
readln(b);
for i:=15 to b do
write(i,' ');
end.

№2.
var k,q,i,a:integer;
begin
readln(k);
q:=0;
for i:=1 to k do begin
readln(a);
if (a>100)and(q=0) then
q:=a; 
end;
writeln(q);
end.

№3.
var a,s,i:integer;
begin
s:=0;
for i:=1 to 16 do
begin
readln(a);
s:=a+s;
end;
writeln(s/16:3:2);
end.