program test(output);

procedure foo(x :real);
begin end;

begin
foo(0);
end.