Скажите, почему программа не видит input? program objective1; var a: real; t: text; begin assign(t,'input.txt'); reset(t); read(t,a); close(t); assign(t,'output.txt'); rewrite(t); a: = 100/(a*2); if frac(a)=0 then writeln(t,a) else begin a: = int(a); a: =a + 1; writeln(t,a); end; write(t,a); close(t); end.
