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

Program n1;
var a,b,c,max,min: real;
begin
readln(a,b,c);
if(agt;b) and (agt;c) then max:=a;
if(bgt;a) and (bgt;c) then max:=b;
if(cgt;a) and (cgt;b) then max:=c;
min:=a;
if blt;min then min:=b;
if clt;min then min:=c;
writeln(разность: ,max-min);
end.