Надо программировать в Pascal ABC,не могу придумать помогите мне!!!
Задача:
Найти количество хорошистов в сельской школе.Если известно,что в ней 15 классов.Количество хорошистов в каждом классе вводятся с клавиатуры.

Program eewtew;typeHuman = classpublicq: integer; // 1 классe: integer; // 2 классr: integer; // 3 классt: integer; // 4 классy: integer // 5 классu: integer; // 6 классi: integer; // 7 классo: integer; // 8 классp: integer; // 9 классa: integer; // 10 классs: integer; // 11 классd: integer; // 12 классf: integer; // 13 классg: integer; // 14 классj: integer; // 15 классend;varH: human;beginH:= new Human;writeln('Введите кол-во хорошистов в 1 классе');readln(h.q);writeln('Введите кол-во хорошистов в 2 классе');readln(h.e);writeln('Введите кол-во хорошистов в 3 классе');readln(h.r);writeln('Введите кол-во хорошистов в 4 классе');readln(h.t);writeln('Введите кол-во хорошистов в 5 классе');readln(h.y);writeln('Введите кол-во хорошистов в 6 классе');readln(h.u);writeln('Введите кол-во хорошистов в 7 классе');readln(h.i);writeln('Введите кол-во хорошистов в 8 классе');readln(h.o);writeln('Введите кол-во хорошистов в 9 классе');readln(h.p);writeln('Введите кол-во хорошистов в 10 классе');readln(h.a);writeln('Введите кол-во хорошистов в 11 классе');readln(h.s);writeln('Введите кол-во хорошистов в 12 классе');readln(h.d);writeln('Введите кол-во хорошистов в 13 классе');readln(h.f);writeln('Введите кол-во хорошистов в 14 классе');readln(h.g);writeln('Введите кол-во хорошистов в 15 классе');readln(h.j);writeln('Мы сорали информацию о классах');writeln('В 1 классе: ', h.q, ' хорошист(а/ов)');writeln('В 2 классе: ', h.e, ' хорошист(а/ов)');writeln('В 3 классе: ', h.r, ' хорошист(а/ов)');writeln('В 4 классе: ', h.t, ' хорошист(а/ов)');writeln('В 5 классе: ', h.y, ' хорошист(а/ов)');writeln('В 6 классе: ', h.u, ' хорошист(а/ов)');writeln('В 7 классе: ', h.i, ' хорошист(а/ов)');writeln('В 8 классе: ', h.o, ' хорошист(а/ов)');writeln('В 9 классе: ', h.p, ' хорошист(а/ов)');writeln('В 10 классе: ', h.a, ' хорошист(а/ов)');writeln('В 11 классе: ', h.s, ' хорошист(а/ов)');writeln('В 12 классе: ', h.d, ' хорошист(а/ов)');writeln('В 13 классе: ', h.f, ' хорошист(а/ов)');writeln('В 14 классе: ', h.g, ' хорошист(а/ов)');writeln('В 15 классе: ', h.j, ' хорошист(а/ов)');end.