Viết chương trình liệt kê các từ của một xâu ký tự được nhập từ bàn phím, mỗi từ phải được viết trên 1 dòng.

program bai_giai;
uses crt;
var s:string;i:longint;
begin
 clrscr;
  write('nhap xau:');readln(s);
  for i:=1 to length(s) do if(s[i]=' ')then writeln else write(s[i]);
 readln;
end.