ПАСКАЛЬ. Даны две строки. Сравнить их длины и «обрубить» бoльшую из них до размеров меньшей.

var
s1, s2: string;

begin
readln(s1);
readln(s2);
if length(s1) > length(s2)
then setLength(s1, length(s2))
else setLength(s2, length(s1));

write(s1,' ', s2);
end.