Дано натуральное число n. Найти отношение последней цифры к первой цифре заданного числа.
Помогите написать программу в Паскале.

var   n, i, p1, p2: integer;  begin   read(n);   p2 := n mod 10;   while n > 0 do   begin     if(n div 10 <= 0) then p1 := (n mod 10);     n := n div 10;   end;   write(p2 / p1);end.