{
Decrement
}
procedure Dec(var n:Integer);
begin
 n:=n-1;
end;
