program f;<br />
var i,j,r:integer;<br />
s,x,y:string;<br />
begin<br />
writeln('perv stroka');<br />
readln(x);<br />
writeln('vtor stroka');<br />
readln(y);<br />
if length(x)>length(y)<br />
then begin<br />
s:=x;<br />
x:=y;<br />
y:=s;<br />
end;<br />
r:=length(y);<br />
for i:=1 to length(x) do<br />
begin<br />
j:=1;<br />
while(j<=length(y)) and<br />
(y[j]<>x[i]) do inc(j);<br />
 if j>length(y) then<br />
 inc(r) else begin<br />
 Dec(r);<br />

 end;<br />
 end;<br />
 writeln('passt ',r);<br />
 readln;<br />
 end.<br />