PROCEDURE add(n,imin: integer; VAR a,b,res: megezahl);
VAR i: integer;
BEGIN
  FOR i:=imin TO n DO res[i]:=a[i]+b[i]
END;