Найти значение функции

[gvgio]

Найти значение функции g=cos(1/x) , через Delphi

[IT-man]

мало данных..............................

[gvgio]

Сообщение от IT-man

мало данных..............................

Такое задание в контрольной,больше никаких пояснений

[Stilet]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
  var x:double;
begin
 readln(x);
 writeln(cos(1/x):5:2);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

И темы называй адекватно. чтоб суть отражало. ато удалим.

[IT-man]

x:=StrToFloat(Edit1.Text);
if x<> 0 then begin
g:=cos(1/x);
edit2.text:=FloatToStr(g);
end;
else label1.Caption:='На 0 делить низзя';

[gvgio]

IT-man
Огромнейшее спасибо за помощь!
По поводу заголовка,просто уже на эмоциях,в конрольной 3 вопроса решил , а вот с последним,этим , проблема оказалась,теперь буду контрольную оформлять.
Ещё раз , огромнейшее спасибо!