Составить алгоритм и программу вычисления N значений функции Y для X

1. Формализация задачи
xi=X1+i*dX, i=0, 1,2,…,(N-1)
yi=Acosxi+1,xi≤-1 A (xi+2)3/2,xi>-1
2. разработка структуры вход – выходных данных
Вход : N – целое число;
Используемые переменные: i – целое число; A,dX,X1 – вещественные числа.
Выход : x[], y[] - массивы вещественных чисел, оформленные в виде таблицы.
3 . Разработка машинно-ориентированного алгоритма
4. Запись текста программы на языке программирования Pascal
Var N,i : integer;
A,x1,dx: real;
x,y: array of real;
begin
writeln('Введите число значений функций N');
readln(N);
x := new real[N];
y := new real[N];
A:=2;
x1:=-5*A;
dx:=2*A/5;
for i:=0 to (N-1) do
begin
x[i]:=x1+i*dx;
if (x[i]<=-1) then
y[i]:=A*cos(x[i]+1)
else
y[i]:=A*Power(x[i]+2,1.5);
end;
writeln('+-----------------+');
writeln('| x | y |');
writeln('+-----------------+');
for i:=0 to (N-1) do
begin
writeln('| ', x[i]:5:1,' | ', y[i]:7:4,' |' );
end;
writeln('+-----------------+');
end.
5