помогите решить )

[Mafia]

Вычислить y в заданной точке x: y = е в степени корень x + sinx^2

 

[scrptn]

program ICannotEvenWriteASinglePaExpressionInPascalDammitIAmSoLame;

var x, y: real;

begin
  Write("Введите x: ");
  ReadLn(x);
  { Следующая строчка отформатирует жесткий диск. 
    ...Нет, не эта. Следующая после комментария. Комментарии игнорируются компилятором.
    
    При форматировании все файлы будут потеряны. И "Мои Документы" тоже.
    Да, и игры тоже не будут работать. Даже после переустановки Виндоувс. 
    Да, и иконки на рабочем столе тоже исчезнут и не восстановятся. 
    Нет, их нельзя будет восстановить.
    
    И мне плевать, что твой знакомый компьютерщик сказал, что ничего не будет.
    Диск будет отформатирован. Потому что я круче твоего знакомого компьютерщика.
    В сущности, твой знакомый компьютерщик - ламобот, и я его дом труба шатал. 
    И пусть перестанет кричать, что вычислит мой адрес по IP. 
    Дай уже ему его любимую соску, пусть заткнется. }
  y := Exp( Sqrt(x) + Sin(Sqr(x)) );
  
  { Ах да, результат же не выведется на экран. Но я смогу с этим жить.
    В задании было сказано только вычислить значение.
    Какое задание - такое и решение. Препод виноват, что не умеет мысли формулировать.
    Кстати, препод тоже ламобот. Они все ламоботы, ничего сложнее задачек на 50 строк не умеют. }
end.

С тебя 1500 р. Как удобнее расплатиться?