Дано число. Если оно больше 3, то увеличить число на 10, иначе уменьшить на 10 Решить в Паскале

Pascal:

var N: integer;

begin

write('Введите число N=');

read(N);

if N>3 then begin

N:=N+10;

writeln('Увеличиваем число на 10');

end

else begin

N:=N-10;

writeln('Уменьшаем число на 10');

end;

writeln('Новое значение числа N=',N);

end.

#include <iostream>
using namespace std;

int main()
{
    double A, B, C, D;
    cout << "Введите действительные числа A, B, C и D через пробел: ";
    cin >> A >> B >> C >> D;
    if (A<=B && B<=C && C<=D)
    {
        int max = A;
        if (B > max)
            max = B;
        if (C > max)
            max = C;
        if (D > max)
            max = D;
        A = max; B = max; C = max; D = max;
        }
    else if (!(A>B && B>C && C>D))
        {
            A = A*A;
            B = B*B;
            C = C*C;
            D = D*D;
            }
    cout << "Результат: " << A << ' ' << B << ' ' << C << ' ' << D;
    return 0;
}

#include <iostream>
using namespace std;

int main()
{
    double A, B, C, D;
    cout << "Введите действительные числа A, B, C и D через пробел: ";
    cin >> A >> B >> C >> D;
    if (A<=B && B<=C && C<=D)
    {
        int max = A;
        if (B > max)
            max = B;
        if (C > max)
            max = C;
        if (D > max)
            max = D;
        A = max; B = max; C = max; D = max;
        }
    else if (!(A>B && B>C && C>D))
        {
            A = A*A;
            B = B*B;
            C = C*C;
            D = D*D;
            }
    cout << "Результат: " << A << ' ' << B << ' ' << C << ' ' << D;
    return 0;
}