Вфирме работают 4 человека. каждый получает разную зарплату. необходимо вывести на экран насколько самая маленькая отличается от большой.

Var a,b,c,k,min,max:real;
begin
readln(a,b,c,k);
min:=999999;max:=-1;
if a<min then min:=a;if a>max then max:=a;
if b<min then min:=b;if a>max then max:=b;
if c<min then min:=c;if c>max then max:=c;
if c<min then min:=a;if a>max then max:=c;
writeln('max>min на ',max-min);
end.