Даны два целых числа a и в. выведите все числа от a до b включительно, в порядке возрастания, если a < b, или в порядке убывания в противном случае

Var a,b: integer; begin readln (a,b); if a> b then for a: =a-1 downto b+1 do writeln (a) else for a: =a+1   to b-1 do writeln (a); end.

programm reshenie; //название программы(название reshenie можно заменить любым другим)

var x, y, a: real; // переменные и пишу что они не целые(real)

begin//начало программы

writeln ('введите сколько наклеек фей накопилось у пети'); //вывод текста

readln(x); //ввод значения x пользователем

writeln (введите сколько накопилось у маши'); //вывод текста

a: =x/y; //пишем, что а равен значению x деленного на y

writeln ('петя сможет выменять ' + a + ' ' + 'наклеек супергероев'); //вывод текста

readln; //для того чтобы программа ждала нажатия кнопки enter

end.//конец

давай будем k раз изменять наш текущий день на "вчерашний", т.е. уменьшать на 1. если после очередного такого уменьшения мы получили, что наш текущий день стал равен 0, значит, мы уже перешли в последний день предыдущей недели. тогда мы говорим, что наш текущий день равен x.

схематично изобразил это на вложении 1.  

код на pascalabc

var   x, d, k, // числа из ввода

  i   : integer;

begin

  read(x, d, k); // ввод чисел

  for i: =1 to k do // будем постепенно идти на k дней назад

  begin

    d: =d-1; // идём на один день назад

    if (d < 1) then

      d: =x; // переходим на предыдущую неделю, если необходимо

  end;

  writeln(d); // выводим ответ

end.

вложено решение как файл.