все делал из
lazarus 0,9,20 но думаю это сюда
Free Pascal Compiler version 2.0.4 [2006/09/22] for i386
var vNum: word;
begin
WriteLn('error 1');
vNum := 1;
Write('pred(1)=');
WriteLn(Pred(vNum)); // на экране pred(1)=0
vNum := 0;
Write('pred(0)=');
WriteLn(Pred(vNum)); // на экране pred(0)=65535
ReadLn;
WriteLn('error 2');
for vNum := 0 to 0 do
WriteLn('good'); // показывается на экране
ReadLn;
for vNum := 0 to -1 do
WriteLn('bad'); // тоже показывается на экране, но не должно + зацыкливается
ReadLn;
end.
PS а нет ли какой команды аля WriteLn(VersionFpcAdnLazarus) ? чтоб проще отписывать такие баги.