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

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

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.