Пожалуйста! В Паскале!

Question

Пожалуйста! В Паскале!

---

Answer 1

Var N,a:Integer;Begin  ReadLn(N);  a:=0;  while N<>0 do begin  a:=10*a+N mod 10;  N:=N div 10  end;  writeln(a);end.