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

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

program ResultCalculation;
var
num1, num2, num3, num4: integer;
sum, product, average: real;
begin
writeln('Enter four numbers:');
readln(num1);
readln(num2);
readln(num3);
readln(num4);
if (num1 < 0) and (num2 = 2 * num3) then
begin
average := (num1 + num2 + num3 + num4) / 4;
writeln('Average of the four numbers: ', average:0:2);
end
else if (num1 * num2 * num3 * num4 > (num1 + num2 + num3 + num4)) then
begin
sum := num1 + num2 + num3 + num4;
product := num1 * num2 * num3 * num4;
writeln('Sum of the four numbers: ', sum);
writeln('Product of the four numbers: ', product);
end
else if ((num1 < 0) and (num2 = 2 * num3)) and (num1 * num2 * num3 * num4 > (num1 + num2 + num3 + num4)) then
begin
average := (num1 + num2 + num3 + num4) / 4;
sum := num1 + num2 + num3 + num4;
product := num1 * num2 * num3 * num4;
writeln('Average of the four numbers: ', average:0:2);
writeln('Sum of the four numbers: ', sum);
writeln('Product of the four numbers: ', product);
end
else
begin
writeln('Doubled values of the four numbers:');
writeln('First number: ', num1 * 2);
writeln('Second number: ', num2 * 2);
writeln('Third number: ', num3 * 2);
writeln('Fourth number: ', num4 * 2);
end;
end.

Пример работы программы:

Enter four numbers:
-1
10
5
4
Average of the four numbers: 4.50