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

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

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

var a,i:integer;

begin
  writeln('vvedite tceloe chislo A: ');
  readln(a);
  writeln();
  if a>100 then
    for i:= a downto 1 do
        write(i, ' ')
    else
      for i:= 1 to a do
    write(i, ' ');
  readln();
end.