ВВЕСТИ НАТУРАЛЬНОЕ ЧИСЛО И ВЫВЕСТИ В СТРОКУ ОТ 1 ДО ЭТОГО ЧИСЛА

Question

ВВЕСТИ НАТУРАЛЬНОЕ ЧИСЛО И ВЫВЕСТИ В СТРОКУ ОТ 1 ДО ЭТОГО ЧИСЛА

Answer 1

Var
 n,i:integer;
begin;
readln(n);
for i:=1 to n do
write(i:4);
end.

Answer 2

Var i,a : Integer;
Begin
  Readln(a);
  For i:=1 to a do Write(i);
end.