вывести на экран числа от 1 до n и от n до 1 в две строки

Program n1;var n,i: integer;beginreadln(n);for i:=1 to n do write(i,' ');writeln;for i:=n downto 1 do write(i,' ');end.