type cc=class x:real;end;
var c:cc;
begin
  c:=nil;
  write(c.x);
end.