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