program pascalcallsC(input,output);

procedure world; external name 'c_world';
procedure w1(var i : integer; var f : real); external name 'c_w1';

var
  i : integer;
  f : double;
begin
   writeln("Hello world from Pascal");
   world;
   writeln("Returned from C to Pascal\n");
   i := 96; 
   f :=45.12343;
   w1(i,f);
   writeln("Returned from C again I = ",i);
   writeln("Return from C real = ",f);
end.