<u>Ответы:</u>
1)40 байт
2)Довольно странная задача. При просмотре ответов возникает естественный вопрос: откуда взялась папка "Кино"?
При самостоятельном решении у меня вышло D:/ФАНТАСТИКА/ГОЛЛИВУД.
Однако среди ответов этого варианта нет, поэтому выбираем наиболее приближенный к найденому, а именно - вариант №1.
Var a,b,c,g:integer;
Begin
readln (a);
b:=a mod 10;
a:= a div 10;
c:= a mod 10;
a:= a div 10;
g:= a mod 10;
write (b+c+g);
end.
модель типо модели глобуса или модели (девушки)