напомните еще бездарю как число напечатать наоборот,
составил прогу для 3-ого числа, а можно ли чтобы одна программа могла печатать наоборот число из любого количества цифр не выдавая при этом лишние нули

program bl;
uses crt;
var a,b,d,e,z,u:integer;
begin
clrscr;
write('Vvedite chislo (xxx):'); readln(a);
e:=0;
for z:=1 to 3 do
begin
d:=1;
b:=a mod 10;
a:=a div 10;
for u:=z to 2 do
d:=d*10;
e:=e+d*b;
end;
writeln(e);
readkey;
end.

конечно можно эту подгонять, но если ты не знаешь какое число получиться, то неудобно