задачи

//ЗАДАЧА 1
program Nickolay_Zadacha1;
var
a: Integer;
begin
    read(a);
    if (a mod 2 = 1) then
        writeln(a+7)
    else
        writeln(a-5)
end.

//ЗАДАЧА 2
program Nickolay_Zadacha2;
var
x,y, z: Integer;
begin
    read(x,y);
    z := x*y;
    if (z < 0) then
        writeln(-3 * z)
    else
        writeln(15 + z)
end.


//ЗАДАЧА 3
program Nickolay_Zadacha3;
var
x,y, z: Integer;
begin
    read(x,y);
    z := x+y;
    if (z mod 2 = 0) then
        writeln(x * y)
    else
        writeln(x / y)
end.

//ЗАДАЧА 4
program Nickolay_Zadacha4;
var
x: Integer;
begin
    read(x);
    if (x <= -1) then
        writeln('Y: ',4/x)
    else if ((-1 < x) and (x < 1)) then
        writeln('Y: -4')
    else if (x >= 1) then
        writeln('Y: ',-(x*x))

end.


//ЗАДАЧА 5
program Nickolay_Zadacha5;
var
x: Integer;
begin
    write('Возраст>>>>>>');
    read(x);
    if ((x >= 3) and (x<=100)) then
    begin
        if (x <= 10) then
            writeln('Детство')
        else if (x <= 16) then
            writeln('Подросток')
        else if (x <= 22) then
            writeln('Юноша')
        else if (x <= 35) then
            writeln('Молодость')
        else if (x <= 60) then
            writeln('Зрелость')
        else if (x <= 80) then
            writeln('Преклонный возраст')
        else
            writeln('Старость')

    end;
end.