Код:
Var
N,T,V,i,Rain,Snow,d:Integer;
f_in,f_out:Text;
Begin
Randomize;
Rain:=0;
Snow:=0;
Assign(f_in,'METEO.IN');
Rewrite(f_in);
Assign(f_out,'METEO.OUT');
Rewrite(f_out);
N:=Random(30)+1;
for i:=1 to N do
begin
T:=-35+Random(71);
V:=Random(101);
writeln(f_in,i:2,T:7,V:7);
end;
Close(f_in);
Reset(f_in);
for i:=1 to N do
begin
readln(f_in,d,T,V);
if T<0 then Inc(Snow,V) else Inc(Rain,V);
end;
Close(f_in);
Writeln(f_out,'Rain: ',Rain);
Writeln(f_out,'Snow: ',Snow);
Close(f_out);
End.
Входной файл заранее создавать не надо: сам сгенерируется.