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

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.