Дано многоразрядное число n < =10^9. найти частное от деления цифр числа, разряды которых равны 1 и 6.

Var a,a1,a6:longint;
begin
write('a = ');
readln(a);
a1:=a mod 100 div 10;
a6:=a mod 10000000 div 1000000;
writeln('a1 = ',a1,' a6 = ',a6);
if a6<>0 then writeln(a1/a6);
end.

Пример:
a = 12354645
a1 = 4 a6 = 2
4/2= 2