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

Одна тонкость - разность первых 2-ух чисел это из первого вычитаем второе или из второго первое?

Program Chisla;

Uses Crt;

var a, b, c, d, sum:real;

begin

clrscr;

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

readln (a) ;

write ('Введите второе число: ') ;

readln (b) ;

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

readln (c) ;

write ('Введите четвёртое число: ') ;

readln (d) ;

sum:=a+b+c+d;

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

else

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

else

if (sum<=80) then writeln (a, b)

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

readkey;

end.