Даны три числа a,b,c. Вычислите, на сколько самое большое из них больше самого маленького ( в Паскале)

Код рабочий, проверял

Program Min-Max;

var a,b,c,min,max:integer;  # задаём переменные

begin

write('Введите 3 числа для сравнения (через пробел) : ');read(a,b,c); # ввод данных

min:=a;max:=a;

if b>max then max:=b;if b<min then min:=b;  # сравниваем числа

if c>max then max:=c;if c<min then min:=c;

write(max - min);  # выводим результат

end.

Если ответ , отметьте его как лучший.