program g;
type cisla=0..9;
var m:array [1..1000] of cisla;
    i:integer;
    n1,n2:word;
    s1,s2:string;
begin
write('Vvedite cislo 1: '); readln(n1);
write('Vvedite cislo 2: '); readln(n2);
str(n1,s1);
str(n2,s2);
if length(s1)>length(s2) then
writeln('Dlinnee cislo= ',s1) else writeln('Dlinnee cislo= ',s2);
readln;
end.