PROGRAM z_9_39;</br>
var s1,s2,s3:string;</br>
Procedure words(s1,s2,s3:string);</br>
var i,p:integer;</br>
begin
s1:=s1+s2;</br>
i:=1;</br>
repeat
p:=pos(s3[i],s1);</br>
delete(s1,p,1);</br>
inc(i);</br>
until (p=0) or (i>length(s3));</br>
write('sostavit tretu stroky      ');</br>
if p=0 then write('nelzya')
else
writeln('mogno');</br>
end;</br>
BEGIN
writeln('vvedite 1 stroky');</br>
readln(s1);</br>
writeln('vvedite 2 stroky');</br>
readln(s2);</br>
writeln('vvedite 3 stroky');</br>
readln(s3);</br>
words(s1,s2,s3);</br>
END.