План города представляет собой прямоугольник размером n×m×километров, разбитых на кварталы — квадраты со стороной 1 километр. Между кварталами, а также по границе города проложены дороги. Например, если n = 2, m = 3, то план дорог следующий.

Определите суммарную длину всех дорог в городе в километрах. Единицу измерения указывать не нужно.

ответом к этой задаче является некоторое выражение, которое может содержать целые числа, переменные n и m, операции сложения (обозначается «+»), вычитания (обозначается «-»), умножения (обозначается «*») и круглые скобки для изменения порядка действий. Запись вида «2n» для обозначения произведения числа 2 и переменной n неверная, нужно писать «2 * n».

Пример правильного (по форме записи) выражения:

n + (m - 1) * 2

В  состав АРИФМЕТИЧЕСКИХ выражений входят:
  переменные числового типа, числа , арифметические операции и математические операции, выраженные в виде функций.
В состав ЛОГИЧЕСКИХ выражений входят:
   логические переменные,  логические операции;
     числа, числовые и строковые переменные или выражения,   которые    сравниваются между собой
   операциями сравнения (< >= и пр.)
В состав СТРОКОВЫХ выражений входят:
переменные строкового типа, строки и строковые функции, операция конкатенации (объединения).
  

Так как мы не знаем длину числа и нам надо только первые две цифры, то можно поступить так:
1. Переводим число в строку и выделяем две подстроки символ длиной в 1 с начала строки, которые переводим обратно в целое.
2.  А дальше стандартно с целочисленного деления выясняем четность первой цифры числа.
 
var a,a1,a2:integer;
s:string
  begin
  readln(a);
  //преобразуем число в строку и найдем первые 2 цифры
  str(a,s);
  a1:=strtoint(copy(s,1,1));
  a2:=strtoint(copy(s,2,1));
  writeln('Первая цифра числа: ',a1);
  writeln('Вторая цифра числа: ',a2);
  //Проверим первую цифру на четность
  if a1 mod 2 =0 then writeln(a1,' - четная')
    else writeln(a1,' - нечетная')
end.