program f;
label 1;
var s1,s2,nc:string;
    i,j:integer;
 
begin
write('Vvedite Pervoe slovo: '); readln(s1);
write('Vvedite Vtoroe slovo: '); readln(s2);
 
nc:=s1;
1:
for i:=1 to length(s1) do
if s1[i]<>s2[i] then begin delete(s1,i,1); goto 1; end;
 
if s1=s2 then begin
writeln;
writeln('Iz slova "',nc,'" mi polucili "',s2,'"!');
writeln('Otvet: MOJNO!')
end else
writeln('Otvet: NELIZYA!');
 
readln;
end.