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

Question

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

Answer 1

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