Задание

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

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.