Напишите программку для вычисления суммы большего и наименьшего из 3-х заданных

Var  x,y,z,min,max,sum:real;begin  Writeln ('Введите три числа');  Read(x,y,z);    if(xlt;y) then   begin    min:=x;    max:=y;  end  else  begin    min:=x;    max:=y;  end;  if (zlt;min) then min:=z;  if (zgt;max) then max:=z;    sum:= min+max;    Writeln('сумма малого и максимального ', sum);end.