4.4

program project1;
var
  plik1:textfile;
  linia:string;

  function ile(var ln:string):boolean;
  var
    i,in:integer;
  begin
  ilen:=0;
  for i:=1 to length(ln) do
      begin
      if (ln[i]='(') then
      ilen:=ilen+1;
      if (ln[i]=')') then
      ilen:=ilen-1;
      end;
  if ilen=0 then
  result:=TRUE;
  if ilen<0 then
  result:=FALSE;
  if ilen<>0 then
  result:=FALSE;
  end;

begin
  Assignfile(plik1, 'F:\pascal\we4.txt');
  Reset(plik1);
  while not EOF(plik1) do
  begin
  readln(plik1,linia);
  writeln(ile(linia));
  end;
  closefile(plik1);
  readln;
end.