Атрибутами файла являются имя файла и тип содержимого,дата и время создания,размер,права к доступу,имя владельца.
Var
a,s,d,f:integer;
Begin
Writeln('четырехзначное число,s');
a:=0;
a:=(s div100)*(s mod 10 )*(s div 10 mod 10)*(s div 100 mod 10);
Writeln ('s');
End.
У=10
В цикле значения у не накапливаются, поэтому значение равно произведению максимального значения индексов
<em>Ответ:Валерий:<span>пианино и география</span></em>