Для 4 произвольных чисел, введенные с клавиатуры, выведите на экран…

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