Verified answer

var s,s1: string;

i: integer;

begin

readln(s);

readln(s1);

if length(s)<>length(s1) then

write('нет') else begin

for i:=1 to length(s) do

if s[i]<>s1[i] then break;

if i=length(s) then write('да')

else write('нет');

end;

end.