– это публикация литературных, научных работ или отрывков других авторов без указания на источник в своей работе

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