Составьте программу по приведенной блок-схеме

для паскаля напишу

begin

var x, y, z, min: integer;

if ((x<= y)and(x<=z) ) then

begin

min:=x;

end;

else if((y<=x)and(y<=z)) then

begin

min:=y;

end;

else if((z<=x)and(z<=y)) then

begin

min:=z;

end;

write (min);

end.