Можете посоветовать наклейки на глок "Жертвеность" до 50 рублей премерно

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)


begin
  var a:=ReadArrInteger(3);
  a:=a.Sorted.Reverse.ToArray; a.Println;
end.


begin  
  var (a,b,c):=ReadInteger3('Введите 3 числа->');
  if (a>b) and (b>c) then begin Println(a,b,c); exit; end;
  if (a>c) and (c>b) then begin Println(a,c,b); exit; end;
  if (b>a) and (a>c) then begin Println(b,a,c); exit; end;
  if (b>c) and (c>a) then begin Println(b,c,a); exit; end;
  if (c>a) and (a>b) then begin Println(c,a,b); exit; end;
  if (c>b) and (b>a) then begin Println(c,b,a); exit; end; 
end.

Допустим число 123. Нам нужно найти первое, второе и третье его число.
То есть 1,2,3. потом их сложить или перемножить.
Чтобы найти первое число нужно 123 разделить на 100,получиться 1.23,его мы округляем и получаем 1.
Второе мы находим деля 123 на 100,получаем остаток 23, делим остаток на 10 и получаем 2.
Третье число мы находим деля 123 на 10 и получаем остаток.
Потом складываем их или перемножаем.
Пример на  pascal:
//div это делить,mod отстаток
var a,b,c,s: integer;
begin
Write('Введи число: ');
Read(s);
a:= s div 100;
b:= s mod 100 div 10;
c:= s mod 10;
WriteLn('Сумма: '+a+b+c);
WriteLn('Произведение: '+a*b*c);
end.