Как создать график функции у=х^2 на язык Паскаль

Uses graphabc;

const

W = 600;

H = 600;

function F (x: real) : real;

begin

F : = sqr (x) ;

end;

var

x0, y0, x, y, xLeft, yLeft, xRight, yRight: integer;

a, b, fmin, fmax, x1, y1, mx, my: real;

begin

window. Init (0, 0, 800, 500, clwhite) ;

window. IsFixedSize : = true;

xRight : = 590;

yRight : = 590;

a : = - 15;

b : = 6;

fmin : = - 10;

fmax : = 20;

mx : = (xRight - xLeft) / (b - a) ;

my : = (yRight - yLeft) / (fmax - fmin) ;

x0 : = 380;

y0 : = 490;

x1 : = a;

while x1 < = b do

begin

y1 : = F (x1) ;

x : = x0 + round (x1 * mx) ;

y : = y0 - round (y1 * my) ;

if (y > = 10) and (y < = 590) then SetPixel (x, y, clblack) ;

x1 : = x1 + 0.001;

end;

end.