Дано трёхзначное число. найти произведение и частное второй и третей цифр

Program n1; var a: integer; d, p: real; begin write ('введите число: ') ; readln (a) ; p: = (a mod 10) * ((a mod 100) - (a mod 10)) / 10; d: = (((a mod 100) - (a mod 10)) / 10) / (a mod 10) ; writeln ('произведение: ', p) ; writeln ('частое: ', d) ; end.

Var a, a2, a3: integer; i:integer; beginwrite ('Введите трехзначное число: ') ; readln (a) ; a2:=a div 10 mod 10; a3:=a div 100; writeln (a2,'*', a3,' = ', a2*a3,', ', a2,'/', a3,' = ', a2/a3) ; end.

Пример: Введите трехзначное число: 2959*2 = 18, 9/2 = 4.5