Вывести все цифры от 1 до числа, введённого с клавиатуры

Question

Вывести все цифры от 1 до числа, введённого с клавиатуры

Answer 1

Var a,i: Integer;
begin
readln(a);
for i:=1 to a do writeln(i);
end.