Составьте программку про блок схеме (PascalABC)

Program n_1;

var x, y, z, min: double;

begin

   read(x, y, z);

   if (xlt;=y) and (xlt;=z) then min:=x;

   if (ylt;=x) and (ylt;=z) then min:=y;

   if (zlt;=x) and (zlt;=y) then min:=z;

   writeln(min:0:5);

end.

Если элементы 100% целочисленные, то double змени на integer, а также строчку вывода замени на writeln(min);