Выведите все числа от 1 до n в таблице (цикл For do)

var  n,i: integer;begin  writeln('введите число n'); read(n); for i := 1 to n do   write(i:5);end.