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

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

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