Дано 2-х значное число. составит программу вычисления цифр данного числа заранее

Program ok; 
varn:integer;
p:real;
begin
write('Введите 2х-значное число ');
readln(n);
p:=(n div 10 mod 10)/(n mod 10);write('ответ ', p);
end.