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

Урок 10.1 задача 3

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

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