Ну, примерно так. можно решить и по-другому
..........................
Как то раз анонимщик гулял в сети. Папа ему говорил не заходи в соц. сети, а анонимщик не послушал отца и залез в соц. сеть. Анонимщику было весело но его заразили вирусы. Он быстро вышел из соц сети и вирусы исчезли. Вот так слушатели анонимщик спас себя от вирусов.
Не заходите в соц. сети они опасны
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.
Нарисавать не отрывая границ