вычислить значение функции p=sin(yx+h)xxx, {y=0.7 при y<=2.1 , x=0.2 при x<=2.2 h=2yx при y>=x и h=y/2*x при y<x} — Pascal(Паскаль)

x:=0.2; while x<=2.2 do begin 
y:=0.7; while y<=2.1 do begin
if y>=x  then  h:=2*y*x  else 
h:=y/2*x;p:=sin(y*x+h)*x*x*x; 
y:=y+0.2; end; x:=x+0.5; end;