// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=SeqRandom(ReadInteger('n='),10,99).Sorted.ToArray; a.Println; var k:=ReadInteger('Сколько значений удалить?'); if k>=a.Length then Writeln('Задание не имеет смысла') else begin var s:=ReadArrInteger('Вводите значения через пробел:',k); a:=a.Where(x->not (x in s)).ToArray; a.Println end end.
P.S порылся в инети и оказалось это правильный ответ