Program P100;
 { Eroare }
var a : real;
    b : integer;

procedure P(x : real; var y : integer);
begin
 { ... }
end; { P }

begin
 P(a, b);
 P(0.1, a);
 P(1, b);
 P(a, 1);
end.