program kontroll; var x: real; begin write('x='); {$I-} readln(x); {$I+} if IOResult=0 then writeln('x+3=',x+3:5:2) else writeln('Vigane arv'); end.