{
    unix like echo program written in Pascal
}

PROGRAM Echo;

VAR
    I : Integer;
    N : Integer;

BEGIN
    N := ParamCount;

    FOR I := 1 TO N DO
    BEGIN
        Write(ParamStr(I));
        IF I = N THEN
            WriteLn
        ELSE
            Write(' ');
    END;
END.
