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

Program chastnoe;

var N, cifra;p, c, i: integer; begin

write(‘N=’);readln (N);i:=0;while N>=0 dobegincifra:= N mod 10;

i:=i+1;if i=1 then p:=cifra;if i=6 then c:=cifra;n:=n div 10;end;writeln (‘частное=’, p/c);end.