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

var a,b,c,k,min,max:real;beginreadln(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.