Вывести числа на экран от 15 до N

var
  i, n: integer;
begin
  write('N = ');
  readln(n);
  for i := 15 to n do write(i, ' ');
  readln
end.

var
  i, n, k: integer;
begin
  write('N = ');
  readln(n);
  if n < 15 then k := 1 else k := 0;
  case k of
    0 : if n = 15 then write('15')
        else
          for i := 15 to n do write(i, ' ');
    1 : for i := 15 downto n do write(i, ' ');
  end;
  readln;
end.

var 
  i, n : Integer;
  sgn : Integer;
begin
  write('n = '); readln(n);
  if n < 15 then sgn := 1 else sgn := -1;
  
  i := n;
  repeat
    write(i:3);
    inc(i, sgn);
  until i = 15 + sgn;
  writeln;
end.

Const i1 = 15;
Var i,n : integer;
 
Begin
     WriteLn; Write('N = '); Readln(n);
     If (n >= i1) Then For i := i1 To n Do Write (i, Chr(9)) Else For i := i1 DownTo n Do Write (i, Chr(9));
     WriteLn;
End.

program PrintNumbers;
var
  N, i: Integer;
begin
  Read(N);
  i := 15;
  while i <= N do
  begin
    WriteLn(i);
    Inc(i);
  end;
end.