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

Ответ:

var a,i:integer; //объявляем переменную

begin

writeln('Введите число: ');

readln(a);

if (a > 100) then //проверка

for i:=a downto 1 do //проходит значения от a до 1

write(i, ' ')//выводим в одну строку

else //иначе

for i:=1 to a do //проходит значения от 1 до a

write(i, ' ');

readln(); // удерживаем консоль

end.