Смотри, берешь зарядку от телефона отсоединяешь от блока , в итоге получается один провод , (если зарядка слитная и не разъединяется ищешь провод USB одно отверстие вставляется в разъем для зарядки телефона другое в ПК) вставляешь провод одним концом в телефон другой в пк, дальше заходишь на пк в проводник\папки и в разделе этот компьютер появится значок и название твоего телефона тыкаешь на него там должна быть папка с памятью телефона (если не отображает значок телефона или нет папки , нужно в телефоне разрешить отображать файлы. Обычно уведомление само приходит при подключении к ПК ) дальше нужный файл с компа перемещаешь в папку телефона. Все нужный файл перемещен
n, c: longint;
begin
c := 0;
readln(n);
while (n > 0) do
begin
n := n div 10;
c := c + 1;
end;
write(c);
end.