Определить общее число детей, учащихся в первых, третьих, пятых и т.д. классах школы

program qq ;
var a,b,c,d,f,g,h,j,k,x,z:integer;
t:string;
begin
writeln('Введите число учащихся 1ого класса');
 readln(b);
 writeln('Введите число учащихся 2ого класса');
 readln(c);
 writeln('Введите число учащихся 3ого класса');
 readln(d);
 writeln('Введите число учащихся 4ого класса');
 readln(f);
 writeln('Введите число учащихся 5ого класса');
 readln(g);
 writeln('Введите число учащихся 6ого класса');
 readln(h);
 writeln('Введите число учащихся 7ого класса');
 readln(j);
 writeln('Введите число учащихся 8ого класса');
 readln(k);
 writeln('Введите число учащихся 9ого класса');
 readln(x);
 writeln('Введите число учащихся 10ого класса');
 readln(z);
 writeln('Введите число учащихся 11ого класса');
 readln(a);
 writeln ('Задайте вопрос о количестве детей в 1-11 классах');
     readln(t);
     if t=('Сколько детей в 1 классе') then
     begin
       writeln(b)  ;
     end;
     if t=('Сколько детей в 2 классе') then
     begin
       writeln(c)  ;
     end;
     if t=('Сколько детей в 3 классе') then
     begin
       writeln(d)  ;
     end;
     if t=('Сколько детей в 4 классе') then
     begin
       writeln(f)  ;
     end;
     if t=('Сколько детей в 5 классе') then
     begin
       writeln(g)  ;
     end;
     if t=('Сколько детей в 6 классе') then
     begin
       writeln(h)  ;
     end;
     if t=('Сколько детей в 7 классе') then
     begin
       writeln(j)  ;
     end;
     if t=('Сколько детей в 8 классе') then
     begin
       writeln(k)  ;
     end;
     if t=('Сколько детей в 9 классе') then
     begin
       writeln(x)  ;
     end;
     if t=('Сколько детей в 10 классе') then
     begin
       writeln(z)  ;
     end;
     if t=('Сколько детей в 11 классе') then
     begin
       writeln(f)  ;
     end;
end.

uses crt;
const n=11;
var a:array[1..n] of integer;
    i,s:integer;
begin
writeln('Введите число учеников по параллелям:');
s:=0;
for i:=1 to n do
 begin
  write(i:2,'=');
  read(a[i]);
  if odd(i) then s:=s+a[i];
 end;
write('Общее число учеников в нечетных параллелях=',s);
end.