[NumLock]

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  hFile: THandle;
  Buffer: array [0..4] of Byte;
  Dummy: Cardinal;
  i, f: Integer;

begin
  hFile:=CreateFile('Project1.txt', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  ReadFile(hFile, Buffer, 5, Dummy, nil);
  CloseHandle(hFile);
  i:=(Buffer[0] shl 16)+(Buffer[1] shl 8)+Buffer[2];
  f:=(Buffer[3] shl 8)+Buffer[4];
  Writeln(Format('%.2f', [i+f/$10000]));
  Readln;
end.