При поступлении в ВУЗ абитуриенты, получившие «двойку» на первом экзамене, ко второму не допускаются. В массиве A[N] записаны фамилии экзаменующихся, а в
массиве B[N] - их оценки, полученные на первом экзамене. Вывести на экран фамилии абитуриентов, не допущенных ко второму экзамену. Протестировать программу на следующих исходных данных:
Массив A: Иванов Петров Орлов Соколов Воронова Гусева Алексеев

Массив B: 2 4 5 4 2 3 3

Протестировать программу на приведённом выше примере.

var    i, n: integer;    names: array[1..100] of string;    marks: array[1..100] of byte;begin    write('n =');    readln(n);        for i := 1 to n do     begin        write('Фамилия =');        readln(names[i]);        write('Оценка =');        readln(marks[i]);    end;        for i := 1 to n do        if marks[i] = 2 then            writeln(names[i]);end.