[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 قليلا