Составьте програму для подсчета количества учащихся в классе, возраст которых…

var a: array[1… 100] of integer; i,s,n: integer; Begin write ('Кол-во учеников='); read (n); for i: =1 to n do write ('Ввеите возраст следующего ученика _'); read (a[i]); if a[i]=15 then s: =s+1; end; writeln ('s=',s); End.