Напишите функцию, которая удаляет из переданной ей символьной строки все символы 'в' и 'и'.

[PascalABC.Net]

function ReplaseString(s: string): string; begin  s := s.Where(c -> c <> 'в').JoinIntoString;  s := s.Where(c -> c <> 'и').JoinIntoString;  Result := s; end; begin  var s := ReadString;  Print(ReplaseString(s)); end.

PascalABC.NET

function УдалитьСимволы(s: string) :=

   s.Where(c -> not (c in ['в', 'и'])).JoinIntoString;

begin

 УдалитьСимволы(ReadString).Print

end.