program prval;
var
 s: string;
 number, veakood: integer;
 reaalarv: real;
begin
 writeln('Kirjuta siia miski arv:');
 readln(s);
 val(s, reaalarv, veakood);
 if (veakood=0) then
  writeln('Sisestasid ilusa reaalarvu ', reaalarv:5:2);

 val(s, number, veakood);
 if (veakood=0) then
  writeln('Ta sobib ka t„isarvuks ', number,'.');
end.