Паскаль, ввести трёхзначное число если сумма цифр числа чётная, то увеличить на 2, в противном случае уменьшить на 2

Program i_have_got_name; var   a: integer; begin      write('введите целое число');       readln(a);       if ((a mod 10)+(a mod 100 div 10)+(a div 100)) mod 2 = 0 then            writeln(a+2) else                  writeln(a-2); end.

Первый способ (большой): использовать чертежник алг богдан_1 нач опустить перо сместиться в точку(0, 11) сместиться в точку(6, 11) поднять перо сместиться в точку(0, 6) опустить перо сместиться в точку(6, 6) сместиться в точку(6, 0) сместиться в точку(0, 0) поднять перо сместиться в точку(8, 0) опустить перо сместиться в точку(8, 11) сместиться в точку(14, 11) сместиться в точку(14, 0) сместиться в точку(8, 0) поднять перо сместиться в точку(16, 0) опустить перо сместиться в точку(16, 11) сместиться в точку(22, 11) поднять перо сместиться в точку(22, 0) опустить перо сместиться в точку(22, -2) сместиться в точку(22, 0) сместиться в точку(30, 0) сместиться в точку(30, -2) сместиться в точку(30, 0) сместиться в точку(28, 0) сместиться в точку(28, 11) сместиться в точку(24, 11) сместиться в точку(24, 0) поднять перо сместиться в точку(32, 0) опустить перо сместиться в точку(32, 11) сместиться в точку(38, 11) сместиться в точку(38, 0) сместиться в точку(38, 5) сместиться в точку(32, 5) поднять перо сместиться в точку(40,0) опустить перо сместиться в точку(40, 11) сместиться в точку(40, 5) сместиться в точку(46, 5) сместиться в точку(46, 11) сместиться в точку(46, 0) кон второй способ (короткий): использовать чертежник алг богдан_2 нач написать(30, "богдан") кон

Заполним этот массив числами от 1 до n, а затем всё перемешаем. #include < iostream>   #include < cstdlib> #include < ctime> using namespace std; int main()  {     size_t n = 0;     cin > > n;     int *a = new int[n];     for (size_t i = 0; i < n; i++)        a[i] = i + 1;         srand(unsigned(time(;     for (size_t i = 0; i < n - 1; i++) {       size_t j = rand() % (n - i) + i;       int temp = a[i];       a[i] = a[j];       a[j] = temp;     }         for (size_t i = 0; i < n; i++)        cout < < a[i] < < " ";     return 0; } пример ввода: 10 пример вывода: 10 1 5 3 4 6 2 8 9 7