Вычислить значение функции - Pascal (80933)

Формулировка задачи:

Всем привет, люди помогите пожалуйста составить блок схему и написать программу паскаль

Решение задачи: «Вычислить значение функции»

Листинг программы

var x: real;
begin
  write('X = ');
  readln(x);
  if (x * x * x * x * x = -3) or (1.3 * x <= x * x * x)
    then write('Значение функции не определено')
    else write('Y = ', sin(x / (3 + x * x * x * x * x)) + ln(1.3 * x + x * x * x) / ln(10));
  readln
end.

Объяснение кода листинга программы

Переменная x объявлена как real.
Выводится сообщение «X = », после чего считывается значение переменной x.
Выполняется проверка условия: x x x x x = -3 или 1.3 x <= x x * x.
Если хотя бы одно из условий выполняется, выводится сообщение «Значение функции не определено».
Если ни одно из условий не выполняется, выводится сообщение «Y = », где Y - это значение функции, а x / (3 + x x x x) - это аргумент функции sin, а ln(1.3 x + x x x) / ln(10) - это аргумент функции ln.
Выполняется чтение следующего значения переменной x.