олимпиада по инфе 11 класс

Question

в отделе работают 3 сотрудника, которые получают заработную плату. Требуется определить: на сколько зарплата высокоопалеваемая из них отличается от самого низкооплачиваемого.

Андрей Филонов · Accepted Answer

ну так найти max и min, а потом max-min

Мария Игоревна · Answer

позор, а не олимпиада 
 
procedure Order(var x : integer; var y : integer); 
var z : integer; 
begin 
 if x < y then begin 
 z := x; 
 x := y; 
 y := z; 
 end; 
end; 
 
var a, b, c : integer; 
 
begin 
 readln(a); 
 readln(b); 
 readln(c); 
 
 Order(a, b); 
 Order(b, c); 
 Order(a, b); 
 
 writeln(a - c); 
end.