program laba_15;
var a: array[1..100] of integer;
n, i, j, k: byte;
begin
k:=0;
write('введите кол-во элементов');readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
begin
if (a[i]div 10 mod 10)=2 then
begin
inc (k);
for j:=i to n-1 do
a[j]:=a[j+1];
end;
end;
writeln ('результат: ');
for i:=1 to n-k do
write (a[i]:3);
end.