Давайте разберем, как составить простую программу на языке Паскаль, которая решает две задачи, описанные вами.

Для решения первой задачи нам нужно:

1. Ввести число.
2. Проверить, четное ли оно.
3. Если четное, возвести его в квадрат, если нечетное - в куб.

Вот как может выглядеть код для этой задачи:

program EvenOdd;
var
    num: integer;
    result: integer;
begin
    writeln('Введите число:');
    readln(num);
    
    if num mod 2 = 0 then
        result := num * num  // Четное число, возводим в квадрат
    else
        result := num * num * num;  // Нечетное число, возводим в куб
        
    writeln('Результат: ', result);
end.

В этом коде мы используем оператор mod для проверки четности числа. Если остаток от деления на 2 равен 0, число четное.

Для решения второй задачи нам нужно:

1. Ввести четыре числа.
2. Проверить, равны ли все четыре числа.
3. Если равны, вывести их сумму.

Вот как может выглядеть код для этой задачи:

program CheckEquality;
var
    a, b, c, d: integer;
    sum: integer;
begin
    writeln('Введите четыре числа:');
    readln(a, b, c, d);
    
    if (a = b) and (b = c) and (c = d) then
    begin
        sum := a + b + c + d;  // Суммируем числа, если они равны
        writeln('Сумма: ', sum);
    end;
end.

В этом коде мы используем логический оператор and для проверки равенства всех четырех чисел. Если они равны, то выводим их сумму.

Теперь вы можете объединить оба кода в одну программу, если хотите, или использовать их отдельно для решения каждой задачи. Надеюсь, это поможет вам понять, как работать с Паскалем!