можно
var
хранимое_значение : real :=0.0;
in_real : real; (*значение из модуля ввода*)
end_var
_________
if хранимое_значение = 0.0 then
хранимое_значение := in_real;
end_if;
...