Найти разность между трехзначным числом и числом, составленным из тех же цифр, но взятых в обратном порядке. решить в общем виде. паскаль)

var x : word;  

begin  

write('введите натуральное число (до 65 535) : '); readln(x);  

writeln(x, ' - ', inverse(x), ' = ', x-inverse(x));  

end.  

… где функция inverse — пара строчек, но «интеллектуальная собственность» , а значит не бесплатно ; -)

также можно еще один вариант решения: uses crt;  

var x, y, first, second, third, raz: integer;  

begin  

clrscr;  

writeln('введите трехзначное число');  

readln(x);  

first: =x div 100;  

second: =(x div 10 mod 10)*10;  

third: =(x mod 10)*100;  

y: =third+second+first;  

raz: =abs(x-y);  

writeln('разность чисел ',x,' и ',y,' равна ',raz);  

readln();  

end.

на pascal:

program sonik;

uses crt;

var a,b,c: string;

begin

readln (a);   readln (b);   readln (c);

writeln (' фигуры: ',a,b,c);

end.

writeln('a[',i,']=',a[i]);

readln;

end.