begin
var a := Lst(1, 2, 3, 1, 2, 3, 1, 2, 3, 555);
repeat
until not a.Remove(3);
a.Println;// 1 2 1 2 1 2 555
end.
