Evo ti standalone exe, da se ne jebavas sa bibliotekama.
http://rapidshare.com/files/284225937/hemija.exe
{$APPTYPE CONSOLE}
uses
Windows;
var
Sc, Si, P, C : Real;
hndConsole : THandle;
Coord : TCoord;
lwWritten : DWORD;
begin
Coord.X := 0; Coord.Y := 0;
repeat
WriteLn('************************');
WriteLn('* Racunanje Sc-a *');
WriteLn('************************');
WriteLn;
Write('Vrednost Si: '); ReadLn(Si);
Write('Vrednost P: '); ReadLn(P);
Write('Vrednost C: '); ReadLn(C);
WriteLn;
WriteLn('========================');
WriteLn(' Si = ', Si:0:3);
WriteLn(' P = ', P:0:3);
WriteLn(' C = ', C:0:3);
WriteLn('========================');
WriteLn;
Sc := C / (4.36 - ((Si + P) * 0.32));
WriteLn('Sc = C / (4.26 - ((Si + P) * 0.32)) = ', Sc:0:3);
ReadLn;
hndConsole := GetStdHandle(STD_OUTPUT_HANDLE);
FillConsoleOutputCharacter(hndConsole,
' ',
GetLargestConsoleWindowSize(hndConsole).X * GetLargestConsoleWindowSize(hndConsole).Y,
Coord,
lwWritten);
SetConsoleCursorPosition(hndConsole, Coord);
until 1 <> 1;
end.