Урок 10.1 Задача 5

Урок 10.1 Задача 5

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

Решение:

var i,a:integer;
begin
  readln(a);
    if a>100 then
      for i:=a downto 1 do
        writeln(i, ' ')
    else
      for i:=1 to a do
        writeln(i, ' ');
  readln();
end. 

Консоль:

15
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15