Склавиатуры вводятся x, y и z. вывести на экран удвоенное наименьшее из них.

Var x,y,z,min:integer;
begin
writeln('x, y, z:');
readln(x,y,z);
if x<y then min:=x else min:=y;
if z<min then min:=z;
writeln('Удвоенное наименьшее = ',2*min);
end.

Пример:
x, y, z:
24 15 31
Удвоенное наименьшее = 30