Pascal.Файлы.

[Corpinccom]

Подскажите какое значение передается в функций eof когда функция true/false.


Program num;
var
f:text;
i: integer;
n: integer;
begin
assign(f,'D:\BP\Bin\num.txt ');
append(f);
writeln('vvedite 5 selih chisel i najmite Enter posle vvode ');
for i:= 1 to 5 do
begin
write('->');
readln(n);
write(f,' ',n);
end;
reset(f);
while not eof(f) do
begin
read(f,n);
write(n);
end;
close(f);
readln;
end.

[Don Karleone]

функция eof возвращает значение true, если достигнут признак конца файла.