Паскаль написать программу Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие результаты. Если сумма первых двух чисел четна, то выведите эту сумму. Если сумма третьего и четвертого чисел четна и отрицательна, то выведите все четыре числа без изменения. Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих четырех чисел. Иначе, выведите суммы двух первых и двух последних чисел.

Предыдущий
вопрос Следующий
вопрос

program FourNumbers;
var
num1, num2, num3, num4, sum, average: integer;
begin
writeln('Enter the first number: ');
readln(num1);
writeln('Enter the second number: ');
readln(num2);
writeln('Enter the third number: ');
readln(num3);
writeln('Enter the fourth number: ');
readln(num4);

sum := num1 + num2;

if (sum mod 2 = 0) then
writeln('Sum of first two numbers is: ', sum)
else if (num3 + num4 mod 2 = 0) and (num3 + num4 < 0) then
writeln(num1, ' ', num2, ' ', num3, ' ', num4)
else if ((sum mod 2 = 0) and (num3 + num4 mod 2 = 0) and (num3 + num4 < 0)) then
begin
average := (num1 + num2 + num3 + num4) div 4;
writeln('Average of all four numbers is: ', average);
end
else
begin
writeln('Sum of first two and last two numbers is: ', num1 + num2 + num3 + num4);
end;
end.