[NumLock]

все начинается с этого:

Код:

program Project1;

{$APPTYPE CONSOLE}

var
  a: Double;

begin
  a:=0.1;
  if 0.1=a then Writeln('Okay') else Writeln('Oops');
  Writeln(0.1-a);
  Readln;
end.

Oops
-5.54975987041018E-0018