Помогите сложить блок-схему

[Kurvochka]

program zadacha2;
var
x,y,h,xk,n,p,sgrt:real;
i:integer;
begin
x:=0;xk:=4;;h:=0.2;
while x<xk+h/2 do
begin
if x>2 then
y:=x+2.5*(sgrt)*3+x*x
else
for i:=1 to 8 do
begin
p:=(n+1);
y:=p*x*x;
writeln('x',x:6:2,'y',y:6:2);
end;
x:=x+h;
readln;
end;
end.