Циклы, Теория чисел...

[Stilet]

помоги с 4 пожалуйста

Будьласка:

  var s,s2:string;i,j:integer;
begin
 s:='информатика';
 s2:='инsdfоfsрмаjhjhjhтика';
 for i:=length(s) downto 1 do begin
  j:=pos(s[i],s2);
  if j>0 then begin
   delete(s,i,1);
   delete(s2,j,1);
  end;
 end;
 if length(s)=0 then write('Yes') else write('no');
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[DRAgon™]

странно ,репутацию подняли("2 раза") ,а она даже и не поднялась