{
Increment
}
procedure Inc(var n:Integer);
begin
 n:=n+1;
end;
