Даны 3 числа ,нужно сложить их корни ,и найти наименьшее из этих корней — Pascal(Паскаль)

var
  x, y, z: integer;
  min, sum: real;
 
begin
  min := 0;
  sum := 0;
  readln(x, y, z);
  min := sqrt(x);
  if sqrt(y) < min then
    min := sqrt(y);
  if sqrt(z) < min then
    min := sqrt(z);
  writeln(min:3:2);
  sum := sqrt(x) + sqrt(y) + sqrt(z);
  writeln(sum);
end.