Уменьшение на единицу значения переменной

program umenschenie_peremennoy_na_edinicu;

const b = 1;

var a, i: integer;

begin

writeln(\'Способ 1. С помощью арифметической операции.\');

a := a - 1;

writeln(\'Способ 2. С помощью функции.\');

dec(a);

writeln(\'Способ 3. Вычесть другую переменную.\');

a : = a - b;

writeln(\'Способ 4. С помощью циклов.\');

for i := 0 to 1 do i := a - i;

end.