Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw8049.pp
Size: Mime:
program bug;

{$Q+}

const s:array[0..31] of char='Hell* world';
	  index:longint=-6;

var c:char;
    p,q:Pchar;

begin 
  p:=s;
  q:=p-index;
  writeln('Hello ',q);
end.