Nếu mà xuất trên một dòng thì dùng cái này

uses crt;
var s: string;
begin
readln(s);
writeln(s);
end.

Nếu mà xuất mỗi số trên một dòng thì dùng cái này

uses crt;
var s: string;
function printArray(s: string): integer;
var i: integer;
var tmp: string;
begin
    tmp := '';
    for i := 1 to Length(s) do
        if s[i] = ' ' then
        begin
            writeln(tmp);
            tmp := '';
        end
        else
        begin
            tmp := tmp + s[i];
        end;
    if tmp <> '' then writeln(tmp);
    printArray := 200;
end;
begin
readln(s);
printArray(s);
end.

uses crt,sysutils;
type intarray = array[1..100] of integer;
var a:array[1..100] of integer; n,j:integer;
function getln():intarray;
var s,s1:string; ar:array[1..100] of integer; i:integer;
begin
    readln(s);
    s:=s+' ';
    s1 := '';
    n:=1;
    for i:=1 to length(s) do
    begin
        if s[i] = ' ' then
        begin
            ar[n] := strtoint(s1);
            n := n+1;
            s1 := '';
        end
        else s1 := s1 + s[i];
    end;
    n := n-1;
    getln := ar;
end;
begin
    clrscr;
    a := getln();
    for j:=1 to n do
    begin
        write(a[j],' ');
    end;
    readln;
end.

$\\$

`@Daoanhviet96`