Файл - он один, а файловая система - это несколько файлов.
СМОТРИТЕ РЕШЕНИЕ НА ПРИКРЕПЛЁННОМ ФАЙЛЕ
Var n:integer;
S:real;
Begin
Write('n = ');ReadLn(n);
S:=0;
For n:= 1 to n do
S:=S+n;
WriteLn('а) S = ',S);
S:=0;
For n:= 1 to n do
S:=S+n*n;
WriteLn('б) S = ',S);
End.
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 3=0)and(i mod 6<>0)
then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>n = 100
k = 17</span>