Условие
напишите программу, которая считает три числа и большее из них уменьшит на 5.

формат входных данных
вводится три различных целых числа a, b, c (−230≤a,b,c≤230−1).
формат выходных данных
требуется вывести новые значения этих чисел.
входные данные выходные данные
10 11 12
10 11 7
42 13 6
37 13 6
с++

Под понятием «бумажный документ» мы подразумеваем информацию, зафиксированную на бумажном носителе и обладающую определенными реквизитами, такими как, например, дата, подпись. К особенностям бумажного документа можно отнести его привязку к материальному носителю.

Электронный же документ не осязаем и не имеет привычного для нас набора осязаемых реквизитов. Нет возможности потрогать, визуально его ощутить. Помимо этого электронный документ не привязан к носителю. Он может существовать на многих носителях и являться одним и тем же документом.

Program lol;

Var

 x : array[1..3] of real;

 y : array[1..3] of real;

 a,b,c,p,s : real;

begin

 write('Введите координаты точки А: ');

 readln(x[1],y[1]);

 write('Введите координаты точки B: ');

 readln(x[2],y[2]);

 write('Введите координаты точки C: ');

 readln(x[3],y[3]);

 a := sqrt((x[1]-x[2])**2 + (y[1]-y[2])**2);

 b := sqrt((x[1]-x[3])**2 + (y[1]-y[3])**2);

 c := sqrt((x[2]-x[3])**2 + (y[2]-y[3])**2);

 p := (a + b + c) / 2;

 s := sqrt(p * (p-a) * (p-b) * (p-c));

 writeln('Площадь тр-ка S = ', s);

end.

Результат: