Here's some delphi code where one random developer from the 80s tries to force an error
if k=N then
begin
Memo.Lines.Add('Error, [some info]');
a:= 0 ; b:=b/a; {Here we try to force an error}
end ;

Oh god :'(