1 2 3 4 5 6 7 8
{$mode objfpc} resourcestring s = 'Hello world'; begin if s<>'Hello world' then halt(1); end.