Написать программу построения графика функции у= sqrt 3*x.(PascalABC)(программа не работает)

uses graphabc;
var i: integer;
x, y: real;
function f (x:real):real;
begin f:=sqrt (3*x);
end; 
Begin   line (0, 240, 620, 240); 
 line (300, 0, 300, 900); 
 for i:= -450 to 45 do   
 begin       x:= 0.03*i; 
  y:=f(x); 
 setpixel (round (300+10*x), round (240-10*y), clgreen);  
   end; 
  textout (300,10, 'y=sqrt(3x)');
End.

uses graphabc;var    i: integer;    x, y: real;function f(x: real): real;begin    f := sqrt(3 * x);end;begin    Line(0, 240, 620, 240);    Line(300, 0, 300, 900);    TextOut(310, 10, 'y=sqrt(3x)');        x := 0;    repeat        x := x + 0.03;        y := f(x);        SetPixel(round(300 + 10 * x), round(240 - 10 * f(x)), clGreen);    until 300 + 10 * x > 620end.с апгрейдомuses graphabc;const    scale = 20;var    i: integer;    x, y: real;function f(x: real): real;begin    if x < 0 then         f := 0    else        f := sqrt(3 * x);end;begin    Window.Init(0, 0, 1000, 1000, clMoneyGreen);    Window.CenterOnScreen;        Line(0, Window.Height div 2, Window.Width, Window.Height div 2);    Line(Window.Width div 2, 0, Window.Width div 2, Window.Height);    TextOut(Window.Width div 2 + 5, 10, 'y=sqrt(3x)');        x := -1;    repeat        SetPixel(round(Window.Width div 2 + scale * x), round(Window.Height div 2 - scale * f(x)), clRed);        x := x + 0.03;    until scale * x > Window.Width div 2end.