uses graph,F_grtext;
var
d,r:integer;
f:text;
begin
d:=detect;
initgraph(d,r,' ');
assign(f,'1.txt');
reset(f);
graphwriteon;
writeln(f);
close(f);
readln;
end.
Не понимаю почему не работает все перепробовал раз получилось а потом


Сообщение отредактировано: N/V/K -