var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) and (b>c) then writeln('c=',c,'b=',b,'a=',a) else
if (b>a) and (b>c) and (a>c) then writeln('c=',c,'a=',a,'b=',b) else
if (c>a) and (c>b) and (b>a) then writeln('a=',a,'b=',b,'c=',c) else
if (a>b) and (a>c) and (c>b) then writeln('b=',b,'c=',c,'a=',a) else
if (b>a) and (b>c) and (c>a) then writeln('a=',a,'c=',c,'b=',b) else
if (c>a) and (c>b) and (a>b) then writeln('b=',b,'a=',a,'c=',c) else
readln;
end.
Одна тонкость - разность первых 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.