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

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