Помогите составить программу в паскале, срочно надо 141в

var x,y,h:real; n,i:integer;beginwrite('h = ');readln(h);write('n = ');readln(n);for i:=0 to n do begin x:=1+i*h; y:=(x*x-3*x+2)/sqrt(2*x*x*x-1); writeln(x:4:1,'  ',y:7:4); end;end.Пример:h = 0.1n = 51.0 0.00001.1 -0.06981.2 -0.10211.3 -0.11401.4 -0.11331.5 -0.1043