var a,b:string; l1,l2:integer;
begin
write('введите строку 1: ');read(a);
write('введите строку 2: ');read(b);
l1:=length(a);
l2:=length(b);
if l1>l2 then
 writeln('в 1ой строке символов больше на ',l1-l2)
 else
 writeln('во 2ой строке символов больше на ',l2-l1);
 end.