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

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

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

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