A=5
B=6
C=7
Если (5<=6) или (6>7) 5 действительно меньше 6 это истина
6 не больше 7 это ложь
Но так как стоит или значит должно выполниться или одно, или другое, или оба вместе
то х=5+5*6=35
То x=
Var t,t1:text; b:array[1..20] of integer; i,j:integer;
begin
assign(t,'G:\2015\12\input.txt');reset(t);
while not eof(t) do begin
i:= i + 1;readln(t,b[i]);
writeln(b[i]); end;close(t);
assign(t,'G:\2015\12\output.txt');
assign(t1,'G:\2015\12\output1.txt');
Rewrite(t);Rewrite(t1);
for j:=1 to i do
if b[j] > 0 then
writeln(t,b[j])
else
writeln(t1,b[j]);
close(t);close(t1);<span>end.</span>
"Принтер" ........................
Вот вроде так, попробуйте