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

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

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