Даны числа x, y, z. минимальное из них удвоить. в паскале авс

Question

Даны числа x, y, z. минимальное из них удвоить.
в паскале авс

Answer 1

//Даны числа x, y, z. минимальное из них удвоить.
var x,y,z:integer;
min:longint;
begin
min:=2000000000;
readln(x);
readln(y);
readln(z);
if x < min then min:=x;
if y < min then min:=y;
if z < min then min:=z;
writeln(min*2);
end.