viết chương trình nhập vào xâu, in ra màn hình mỗi từ trên mỗi dòng.

program cactu;

uses crt;

var s,st:string;

      i:byte;

begin

      clrscr;

     write(‘Nhap xau: ‘);  readln(s);

     st:=”;

     for i:=1 to length(s) do

           if s[i]<>’ ‘ then st:=st+s[i] 

           else begin

                 writeln(st);

                 st:=”;

           end;

     readln;

end.