Procedure write_to_file;
Var x:integer;
begin
Writeln('Vvedite chisla: (dlya vihoda Ctrl+z) ');
while not eof do
begin
Write('x= ');
readln(x);
Write(fint,x);
end;
close(fint)
end;
а приглашение Write('x= '); выводится как-то страноо, когда цикл работает первй раз строка x= не печатается
Vvedite chisla: (dlya vihoda Ctrl+z)
7
x=5
x=4
x=
в последующих рзах всё нормально работает. Скажите пожалуйста почему.