Паскаль: дана последовательность целых положительных чисел, заканчивающаяся числом, разряд единиц которого равен нулю. определите, сколько чисел в последовательности, не считая данного числа.

Vari, a: longint;beginread(a);i := 1;while (a mod 10 <> 0) doinc(i);writeln('Чисел в последовательности: ', i);end.