[lmikle]

Ну, вообще вопрос из серии 2й главы книжке про паскаль.

Код:

if y < 0 
  then ShowMessage('Не представляет опасности.')
  else
    begin
      // поехали считать
      // по всем твоим формулам...
    end;