Решите #2 ** языке Паскаль,пожалуйста

Question

Решите #2 на языке Паскаль,пожалуйста

---

Answer 1

var vivod,vvod:integer;

begin

readln(vvod);

while(vvod <> 0) do

begin

vivod:=vvod;

 vvod := vvod div 10;

end;

writeln(vivod);

end.