Паскаль / 1 семестр / проги / Дом работы / Дом раб 3 / BOH7_STR

var i,j: integer;
s1,s2,s3:string;
global, flag:boolean;
begin
readln(s1);
readln(s2);
readln(s3);
global:=true;
for i:=1 to length(s3) do
begin
flag:=false;

for j:=1 to length(s1) do if (flag=false) AND (s1[j]=s3[i])
then


flag:=true;

for j:=1 to length(s2) do if (flag=false) AND (s2[j]=s3[i])
then
flag:=true;


if not flag then global:=false;

end;
if global=true then writeln('okey-dokey');
readln;
end.