unit vim;

interface

procedure valuta(N: longint; C, L, P: array of longint);

implementation

procedure valuta(N: longint; C, L, P: array of longint);
begin
	P[0] := 1;

end;

end.