Укажите число, которое будет выведено на экран в результате работы данной программы.

Program N;
var a, d: integer;
Begin
a := 34;
while a > 0 do begin
d := a mod 10;
a := a div 10;
end;
writeln\(d\);
End.