Program P107;
 { Eroare }
var a : real;

procedure P(x : real);
var a : integer;
begin
 a:=3;
 writeln(x+a);
end; { P }

begin
 a:=3.14;
 P(a);
end.