Пожалуйста помогите! Нужна только блок-схема.

var
x:real;
begin
x:=-1.23;
while x<=6.23 do begin
if x<0 then
Writeln('X=',x:5:2,', логарифм определен только для X>0')
else
Writeln('X=',x:5:2,', Y=',5.3*sqrt(abs(x*x*x))+cos(ln(x)+12.6));
x:=x+0.95
end
end.