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

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

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