Дано двузначное число. найти сумму и произведение его цифр

  program kugjmgv;

uses crt; var a,a1,a2: integer; begin

clrscr; write('введите двузначное число: '); readln(a); a1: =a div 10; a2: =a mod 10; writeln('сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.

uses crt; var a,a1,a2: integer; beginwrite('введите двузначное число: '); readln(a); a1: =a div 10; a2: =a mod 10; writeln('сумма цифр числа ',a,' равна ',a1+a2,' ,произведение равно ',a1*a2); end.

1.способ.перепровляются 2 мальчика потом 1 мальчик возврощается и забирает 1 взрослого и переплывает с ним потом 1 мальчик возвращается и забирает второго взрослого.                                                                                                                   2.способ.сначало переправляются 1 мальчик и 1 взрослый потом этот мальчик переправляется и забирает второго взрослого а потом возвращается за вторым мальчиком и переправляется назад вместе с ним.