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

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