С клавиатуры вводится 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.