SET ServerOutput ON
ACCEPT liczba PROMPT 'podaj liczbe: '
VARIABLE inna NUMBER
BEGIN
  :inna := &liczba+1;
END;
/
PRINT inna