ПОМОГИТЕ ПОЖАЛУЙСТА!!!!!!!!!!!!! очень нужно!!!!!!!!!! ПОМОООГИИИИТЕЕЕЕЕЕ!!!!!!!!!!!!!!!!
Дано многоразрядное число N <=10^9. Найти частное от деления цифр числа, разряды которых равны 1 и 6.

Program chastnoe;var N, p, sh: integer;:m: real;

beginwrite(‘N=’);readln (N);p:= N div 1000000000;sh:= (N div 10000) mod 10;m:=p/sh;writeln (‘частное=’, m);end.