Advertisement
kostes

8a

Oct 22nd, 2018
91
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.13 KB | None | 0 0
  1. var
  2. s:string;
  3. i:integer;
  4. begin
  5. readln(s);
  6. i := pos(' ',s);
  7. writeln(copy(s,1,i-1));
  8. writeln(copy(s,i+1,length(s)));
  9. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement