Помогите с информатикой пожалуйста (задачка pascal)

Question

Определить число, получаемое выписыванием в обратном порядке цифр заданного натурального числа. 
с массивом не принимают. вариантов на repeat - until нет

Евгений Иванов · Accepted Answer

Div и Mod тебе в помощь.

Roman · Answer

Var n,r:Integer; 
 Begin 
 ReadLn (n); 
 r:=0; 
 While n<>0 do 
 Begin 
 r:=r*10 + n mod 10; 
 n:=n div 10; 
 end; 
 WriteLn (r); 
end.