Progran v Delphi 7

[sorouw]

Ahoj,
hledám někoho kdo by to uměl hodit do Delphi. Tohle to opravdu nedávám. Jsem na stavárně a když to neodevzdám bude mi dělat učitel velké problémy. Zadání programu je:

Sestavte program, podle kterého se pro 5 reálných čísel x z intervalu (-100, 100), přečteným ze vstupního zařízení, vytiskne tabulka se záhlavím:

---------------------------------------------------------------------------------------------------------
X sgrt(1-2sin(x) ) arcsin(sgrt(1-2sin(x))) Ln(x)
----------------------------------------------------------------------------------------------------------
a výchozí hodnoty programu budou řazeny takto do sloupců v zadaném formátování viz níže
-1,005 1,017 --- ---
2,000 0,964 74,681 0,693
99,999 --- --- 4,605
-99,999 --- --- ---
30,000 0,000 0,000 3,401

Čísla x tiskněte na 3 desetinná místa, funkční hodnoty na 6 platných cifer. Není-li některá z funkčních hodnot definována, tiskněte místo ní 3 pomlčky (tj. '---').

Prosím budu si vážit všech rad a návrhů.

--- Doplnění předchozího příspěvku (03 Dub 2013 11:36) ---

Takto vypadá uznaný program s jiným zadáním v záhlaví.