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

program zz1;

var a, b, c, d:integer;

begin

write (' введите первое число '); / / вводим первое число

read (a);

write (' введите второе число '); / / вводим второе число

read (b);

write (' введите третье число '); / / вводим третье число

read (c);

write (' введите четвертое число '); / / вводим четвертое число

read (d);

if a - b > d then writeln (a, ' ', b, ' ', c, ' ', d);

if (a + b + c + d) < = 80 then writeln (a, ' ', b);

if (a - b > d) and ((a + b + c + d) < = 80) then writeln (c, ' ', d)

else writeln (a + 5, ' ', b + 5, ' ', c + 5, ' ', d + 5);

end.