Помогите построить блок схему к программе,пожалуйста

Program Cikl;
var a,b,h,x1,x2,y:real;
begin
writeln ('введите a');
readln (a);
writeln ('введите b');
readln (b);
writeln ('введите x1');
readln (x1);
writeln ('введите x2');
readln (x2);
writeln ('введите h');
readln (h);
while x1<=x2 Do
begin
if (x1<1.4)
then y:=3.14*x1*x1-7/x1*x1
else
if x1=1.4
then y:=a*x1*x1+7*sqrt(x1*x1-1)
else y:=(a+b*x1)/sqrt(x1*x1+1);
writeln (x1,y);
x1:=x1+h;
end
  end.