pascal.работа с файлами

[павля]

дано натуральное n. Записать в файл g целые числа b1-ое,...,bn-ое, где при i=1,2,...,n значение bi-тое равно i(во второй).

заранее благодарна...

[Gelirgwenn]

эм, а что значит ваше

bi-тое равно i(во второй)

если вы имели ввиду, что b[i]=i, то:

program a1;
namefile='C:\g.txt';{путь к файлу}
var
i,n: integer;
b: array [0..1000] of integer;
f:text;
begin
randomize;
write('Vvedite n:');
readln(n);
{заполнение случайными числами}
for i:=1 to n do
     b[i]:=random(10);
{запись в файл}
assign(f,namefile);
rewrite(f);
for i:=1 to n do
    if b[i]=i then
       write (f,' ',b[i]);
close(f);
end.

[павля]

спасибочки огромное вам за решение