3. Дана блок схема составить сходя из нее программу на языке паскаль

Примечание:

в блок схеме присутствует ошибка

z:=x*sqr(x)/y)  количество скобок непарно!

скорее всего условие должно быть таким

z:=x*sqr(x/y)

если нужно, это можно исправить в тексте программы - выделил

var

 n, x, y, z : double;

begin

 readln(n,x);

 y := sin(n*x)+0.5;

 if y=0 then

   writeln('Z не вычислено. Y=0')

 else begin

  z:=x*sqr(x/y);

   writeln(z);

 end;

end.