Даны 2 строки символов: S1 и S2. Узнать, которая строка короче путем определения и сравнения длин строк. Результаты выдать на экран. Паскаль!

var s1, s2:string; l1, l2:integer;

begin

readln (s1) ;

readln (s2) ;

l1:=length (s1) ;

l2:=length (s2) ;

if l1
else if l2
else writeln ('Строки имеют одинаковую длину') ;

end.

Пример:

program

var

2-я строка короче

Текст программы + скрин с примером выполнения программы.

Program Stroki;

var S1, S2 : string[250];

begin

writeln ('Введите 1-ю строку: ', S1) ;

Readln (S1) ;

writeln ('Введите 2-ю строку: ', S2) ;

Readln (S2) ;

if Length (S1) >Length (S2)

then writeln ('Длиннее строка 1')

else

if Length (S1)
then writeln ('Длиннее строка 2')

else writeln ('Длины строк равны')

end.