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

Одна тонкость - разность первых  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.