При поступлении в вуз абитуриенты, получившие «двойку» на первом экзамене, ко второму не допускаются. в массиве a[n] записаны фамилии экзаменующихся, а в массиве b[n] - их оценки, полученные на первом экзамене. вывести на экран фамилии абитуриентов, не допущенных ко второму экзамену. протестировать программу на следующих исходных данных: массив a: иванов петров орлов соколов воронова гусева алексеев массив b: 2 4 5 4 2 3 3 протестировать программу на выше примере.
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.