variable vage NUMBER

PROMPT Entrer votre age

ACCEPT vage

begin

:vage:= 1 + &vage;

end;

.

/

PROMPT Votre age est

PRINT vage

PROMPT ans