задано целое число. из данного числа сделать число-перевертыш на паскале

program xxx;uses CRT;vara, i:integer;beginreadln(a);while (a<>0) dobeginwrite(a mod 10);a := a div 10;end;end.