Составьте пожалуйста блок схему
program aaa;
var y,x,a,pi:real;
begin
pi:=3.14;
a:=0.8;
x:=0;
while x<=pi do begin
if x<(pi/2) then y:=sqrt(a*sin(3*x)+1)
else y:=cos(3*x)/sqrt(a*sin(3*x)+1);
x:=x+0.3;
writeln(y);
end
end.