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

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.