Question

паскаль натуральное целое число n. составьте программу которая выводит на экран числа следующим образом 1.n
                                 2.n-1
                                 3.n-2
                                ....
                                  n1.

Answer 1

var
  n, n1, i: integer;
begin
  writeln('Введите n и n1: ');
  read(n, n1);
  for i := 0 to n1 - 1 do writeln(i + 1, '. ', n - i);
end.