Урок 10. Задача 3

Урок 10. Задача 3

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

var i,a: Integer;
begin
readln(a);
if a>100 then
begin
    for i:=a downto 11 do
    write(i, ' ')
end else
begin
    for i:=a to 11 do
    write(i, ' ')
end;
end.