ex.dpr

tongji acm-online judge solution

program Ural_1082(Input, Output);
type
    TIndex = Longint;
var
    i, N: TIndex;
begin
    Readln(N);
    for i := 1 to N do
        Write(i, ' ');
    Writeln;
end.