Написать программу для Паскаля.

Var 
y,x:real; 
i:integer;
Begin 
For i := 1 to 10 do Begin   
x:=i;   
y:=(3*sqr(x)-sqrt(x+1))/(2-x);   
writeln('X',i,' = ',x,', Y',i,' = ',y); 
End;
End.