Написать программу на алгоритмическом языке PASCAL с использованием любого оператора...

$\displaystyle y=\left\{\begin{matrix} \sin(2x+1), &x\leqslant 4 \\ x^2-\sqrt x, &4\ \textless \ x\leqslant 6 \\ 3\ln x, &x\ \textgreater \ 6 \end{matrix}\right.$

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
var x:=3.0;
var y:real;
while x<=7.51 do begin<br>    if x<=4 then y:=Sin(2*x+1)<br>    else if x<=6 then y:=x*x-Sqrt(x)<br>    else y:=3*ln(x);
    Writeln(x:4:2,y:15:8);
    x+=0.25
    end
end.

Результат
3.00     0.65698660
3.25     0.93799998
3.50     0.98935825
3.75     0.79848711
4.00     0.41211849
4.25    16.00094719
4.50    18.12867966
4.75    20.38305053
5.00    22.76393202
5.25    25.27121215
5.50    27.90479212
5.75    30.66458424
6.00    33.55051026
6.25     5.49774439
6.50     5.61540653
6.75     5.72862751
7.00     5.83773045
7.25     5.94300441
7.50     6.04470906

Написать программу ** алгоритмическом языке PASCAL с использованием любого оператора...