Программа написана на 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.