Unit U4;
interface
uses U5;
var  m : real;
     s : char;
implementation
begin
 m:=4.0;
 s:='A';
end.