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

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