program otsast_tuhikud_ara; var s: string; begin s:='suss '; writeln(s, 'sussiots'); while s[length(s)]=' ' do delete(s, length(s), 1); writeln(s, 'sussiots'); end.