ارجو مساعدتي في برنامج pascal

[ياسين 1990]

السلام عليكم
ارجو مساعدتي في برنامج يقلب قيم عدد الاول يصبح الاخر والعكس

مثال n=5981........................................فتصب ح n=1895



program pascal

[وليد_الجلفة]

بالcمعليهش...............................

[ياسين 1990]

شكرا لك لكن احتاجها بالباسكال

[drs1985]

function invers(i:integer):string;
var str1,str2:string
j:integer
begin
str1:inttostr(i);
str2:='';
for j:=1 to length(str1)do

str2:=str2+str1[ length(str1)-j];

invers:=str2
end;
اعذرني لقد نسيت pascal قليلا