Question

Составить по паскалю абс назовем слово а следом слова в, если в можно составтиь из букв, входящих в а, при этом каждая буква в в может использоватся не чаще, чем она астречается в а. например, слово "ультрамарин" - след слова "ланита" или "мир", но не является следом слова "мера" (оно содержит букву "е", которой нет в слове "ультрамарин") или "римма" (буква "м" здесь встречается двва раза, а вслове "ультрамарин" - один раз). два слова х и у. следует проверить, является ли слово у следом слова х. извествно, что оба слова содержат прописные буквы латинского алфавита и имеют длину до 30 симвлов. формат ввода: х у формат вывода: сообщение "yes", если слово у является следом слова х сообщение "no", если слово не является следом слова х

Answer 1

Var x,y: string; l,k,i:integer;
begin
readln(x);
readln(y);
l:=length(x);
k:=0;
for i:=1 to l do
 if pos(x[i],y)>0 then
  begin
  delete(y,pos(x[i],y),1);
  k:=k+1;
  end;
if k=l then writeln('YES') else writeln('NO');
end.

Пример:
MAMAPROGRAMMA
YES