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

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