Оставить программу для вычисления значения функции по одной из формул: (паскаль)​

var

 x, y: Double;

begin

 Write ('X = ');

 ReadLn (x);

 if x < -2 then

   y := Abs (x) + 2

 else if x > 2 then

   y := x + 1

 else

   y := 1;

 WriteLn ('Y = ', y);

 ReadLn;

end.

#include <stdio.h>
#include <stdlib.h>
#include <locale.h>

int main(void)
{
    setlocale(LC_ALL, "Russian");
    int n, iuneven = -1;
    scanf("%d", &n);
    int *a = (int*)malloc(n * sizeof(int));

    for (int i = 0; i < n; i++)
        scanf("%d", &a[i]);
    for (int i = 0; i < n; i++)
        if (a[i] % 2 == 1)
        {
            iuneven = i;
            break;
        }
    free(a);

    iuneven == -1 ? printf("Нечетное число не найдено\n") : printf("%d\n", iuneven);
   
    return 0;
}

Var
n1,n2,n3,n4,n5:integer;
begin
Readln(n1,n2,n3,n4,n5);
If (n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) then
writeln('Максимальное число: ',n1)
else If (n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) then
writeln('Максимальное число: ',n2)
else If (n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) then
writeln('Максимальное число: ',n3)
else If (n4>n1) and (n4>n3) and (n4>n2) and (n4>n5) then
writeln('Максимальное число: ',n4)
else
writeln('Максимальное число: ',n5);
end.