На отрезке [2;4] с шагом 0,2 протабулировать функцию:3х - 4sinx2

Программка написана на Pascal.ABC

var
  x, y: real;
begin
  x := 2;
  writeln('/----------\');
  writeln('  x    y  ');
  writeln('----------');
  while x lt; 4.1 do
  begin
    y := 3 * x - 4 * sin(sqr(x));
    write(' ', x:1:1, ' ', y:2:2);
    if y / 10 lt; 1 then
      write(' ');
    writeln('');
    x := x + 0.2;
  end;
  writeln('\----------/')
end.