Подскажите верна ли блок-схема

[Dialon]

Составить блок-схему и программу для вычисления функции в произвольной точке с учетом области определения функции. Ввод аргументов осуществить с помощью оператора Read. y=arccos(2x^3)

Program Task_4;
const pi=3.14;
var x:real;
begin
read(x);
if ((1-4*sqr(x)*sqr(x)*sqr(x))<>0) then
writeln(pi/2 - arctan(2*sqr(x)*x)/(sqrt(1-4*sqr(x)*sqr(x)*sqr(x))))
else writeln('Ошибка ввода');
end.

[puporev]

1. Надо бы после выхода из if написать на одной ветке "да" на другой "нет".
2.Если в программе "Ошибка ввода" то и на схеме надо так писать, или наоборот в программе "Функция не определена".
А так все верно.
По программе. Вместо read(x) напиши readln(x); И перед end напиши readln, чтобы по нажатию Enter выводило результат на экран. Правда тогда и на схеме перед Конец надо будет знаком "Предопределенный процесс" или подпрограмма, показать readln.

[Dialon]

Большое спасибо все понял!