Помогите пожалуйста решить задачу в паскаль abc. Заранее Спасибо!

var s:string;

begin

readln (s);

writeln (s,'=',Length(s));

s:=s+'+'+s;

writeln (s,'=',Length(s));

end.