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

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.