Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  123
Language: BASIC
Code:
var
i: integer;
s1, s, s2: string;

begin
readln(s);
s := s + ' ';
s2 := '';
s1 := '';
for i := 1 to length(s) do
if s[i] <> ' ' then
s2 := s2 + s[i]
else
begin
if length(s2) = 6 then
s1 := s1 + ' ' + s2;
s2 := '';
end;
Writeln(s1);
end.
Comments: