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

var

a: integer;

begin

readln(a);

writeln(a*(a div 10 + (a mod 10)*10));

end.

    mov ax,1     mov bx,ax     mov cx,99 a: add ax,2      add bx,ax    cmp ax,cx     jne a    mov ax,bx     mov bl,10     mov cx,0 b: div bl   ;   в ah - частное, al - остаток     add al,48   ;   в al - код младшей цифры     push al     inc cx     cmp ah,0     jne b   ; вывод на экран через bios c: mov ah, 0eh     pop al     int 10h     ; вывод символа     dec cx     jnz c   ; завершение программы     mov ah, 4ch     mov al,00h     int 21h

Program trykutnyk; uses crt; const a=5; b=3.6; c=4.2; var p,s: real; begin           clrscr;           p: =a+b+c;           writeln('p=',   p: 5: 2);           p: =p/2;           s"=sqrt(p*(p-a)*(p-b)*(p-c));           writeln('s=',   s: 5: 2);           writeln('имя фамилия');           readln end.