Решите неравенство 2/3 z> 36-1 1/3 x

var i,min: integer; a: array [1..10] of integer; begin      for i: = 1 to 10 do begin            read(a[i]);             if (i=1) or (min> a[i])then                  min: =a[i];       end;       writeln(min); end.