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

Question

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

Answer 1

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

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