С клавиатуры вводится 4-значное число. Если первая и последняя цифры равны - вывести на экран их сумму, если нет - вывести

var   a, b, s, s1, i: integer; // объявляем переменные целочисленного типа.begin   write (\'Введите число:\');     // вывод строки на экран.   read(a);                             // считываем число, введенное с клавиатуры.     while a > 0 do                  // начало цикла.       begin          b := a mod 10;          // определяем последнюю цифру числа.           if i = 0 then s := b;   // запоминаем последнюю цифру.          if i = 3 then s1 := b; // запоминаем первую цифру.          a := a div 10;          // удаляем последнюю цифру из числа.

          i := i + 1;               // счетчик цифр.      end;    if (s = s1) then writeln (\'Сумма чисел равна: \', s + s1)    // вывод суммы чисел на экран.    else writeln(\'Нет.\');end.