Составте программу, которая определяет длину введенных слов, сравните их между собой и большее выводит на экран.

Var s1,s2:string;
begin
readln(s1);
readln(s2);
if length(s1)>=length(s2) then writeln(s1)
else writeln(s2);
end.