Исполнитель кузнечик живёт на числовой оси. начальное положение кузнечика – точка 0. система команд кузнечика:
вперед 6 – кузнечик прыгает вперёд на 6 единиц,
назад 5 – кузнечик прыгает назад на 5 единиц.
напишите программу.
*какое наименьшее количество раз должна встретиться в программе команда «назад 5», чтобы кузнечик оказался в точке 19?

1)var a: integer; begin       write('введите число: ');       read(a);       if (a div 10 + a mod 10 + a div 10 mod 10) mod 2 = 0       then writeln('сумма цифр четна')                             else writeln('сумма цифр нечетна') end.2)var a: integer; begin      write('введите число: ');     read(a);       if a mod 2 = 0 then writeln('последняя цифра числа четная')                            else writeln('последняя цифра числа нечетная')end.

Program b11; var  i, p, max: integer;     b: array [1..10] of integer; begin  randomize;     p : = 0;     for i : = 1 to 10 do    begin    b[i] : = random(10);       write(b[i], ' ');     end;     for i : = 1 to 10 do      if b[i] mod 3 = 0 then begin      p : = p + b[i];         if b[i] > max then max : = b[i]    end;   writeln;   writeln('сумма чисел кратных 3 = ', p);     writeln('максимальное число, кратное 3 = ', max);   readln; end.