Составьте список студентов spisok (10 записей), включающий Фамилию и 5 оценок. Напишите программу, удаляющую из списка тех, кто имеет хотя бы одну двойку. Массив и результат работы программы вывести на экран.

var

ars: array[1 ... 10]of string;

i, n, j: integer;

begin

n : = 10;

for i : = 1 to 10 do

begin

readln (ars[i]);

end;

for i : = n downto 1 do

if ((ars[i][length (ars[i]) ] = '2') or (ars[i][length (ars[i]) - 8] = '2') or

(ars[i][length (ars[i]) - 4] = '2') or (ars[i][length (ars[i]) - 6] = '2') or

(ars[i][length (ars[i]) - 2] = '2'))

then

begin

for j : = i to n do

ars[i] : = ars[i + 1];

dec (n);

end;

writeln;

for i : = 1 to n do

writeln (ars[i]);

end.