Так понимаю, требуется вывести на экран последнюю цифру числа А. Обе программы верны. Различия лишь в том, что в первой программе мы создаём отдельную переменную, в которую записываем последнюю цифру числа а; а во второй программе мы просто меняем значение переменной а, записывая в нее последнюю цифру числа (ничего не изменилось, просто не пользуемся лишними переменными).
450 = <span>111000010 </span>
0000000111000010 - прямой
1111111000111101 - обратный
+1
1111111000111110 - дополнительный
з.ы числа написаны в 2битной сетке (если нужно убери первые нули)
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln('S=',ReadSeqIntegerWhile(i->i<>0).Average)
end.
<u>Пример</u>
24 18 -25 14 6 11 0
S=8