program homerseklet-kiv;
uses newdelay,crt;
var
type meres=record(nap:integer,ertek:real);

procedure fagypont;
   var i:integer;
   dp:=0;d0:=0;dn:=0
   for i:=1 to n do
      begin
        if x[i].ertek>0 then dp:=dp+1 mp[dp]:=x[i].nap
        if x[i].ertek=0 then dp:=dp+1 m0[d0]:=x[i].nap
        if x[i].ertek<0 then dp:=dp+1 m0[d0]:=x[i].nap
      end;