Определить из двух строк, какая строка больше по длине и на сколько.
(Pascal abc)

var s1, s2:string; l1,l2:integer;beginwriteln('Введите 1 строку:');readln(s1);writeln('Введите 2 строку:');readln(s2);l1:=length(s1);l2:=length(s2);if l1>l2 then writeln('Первая строка длиннее на ',l1-l2) else if l1<l2 then writeln('Вторая строка длиннее на ',l2-l1)   else writeln('Строки имеют одинаковую длину');end.Пример:Введите 1 строку: var s1, s2:string; l1,l2:integer;Введите 2 строку: beginПервая строка длиннее на 28