Вычислите на языке программирования паскаль: y=x^2-|x|/(x+5)^2

Var x: real; begin read(x); writeln('y=',sqr(x)-abs(x)/sqr(x+5)); end.

Program pr_1;
a:array [1..n] of real;
n, i:integer;
begin
readln(n)
for i := 1 to n do
begin
a[i] := readln()
if a[i] <0 then a[i] := a[i] - 5;
else a[i] := i;
end;
writeln(a);
end.

/*VS C++*/
#include <iostream>
#include <math.h>
using namespace std;
int main() {
    float x, y, h;
    cout << "Vvedite x = "; cin >> x;
    cout << "Vvedite y = "; cin >> y;
    if (x < y) h = atan(x + fabs(y));
    if (x > y) h = atan(fabs(x) + y);
    if (x == y) h = pow((x + y), 2);
    cout << "h = " << h << endl;
    system("pause");
    return 0;
}

PicsArt, Photoshop, Instagram